Меню

Обратная связь

Сейчас на сайте

•Сейчас• •29 гостей• •онлайн•

Авторизация



Назад...


1. "Подсчет пятерок". Вводятся семь целых чисел. Напишите программу, которая подсчитывает количество пятерок среди введенных чисел.

Выходные данные:

семь целых чисел

Выходные данные:

количество пятерок

Пример ввода:

5

10

478

5

7

56

-123

Пример вывода:

2

  • Решение
    • program kolvo;

      var

      a,kol,i : longint;

      begin

      kol:=0;

      for i:=1 to 7 do

      begin

      readln(a);

      if a=5 then kol:=kol+1;

      end;

      writeln(kol);

      end.


 

2. "Подсчет чисел, больших 3". Вводятся десять целых чисел. Напишите программу, которая подсчитывает количество чисел, которые больше 3.

Выходные данные:

десять целых чисел

Выходные данные:

Kol

Пример ввода:

2

10

478

5

7

3

-5678

3

777

3

Пример вывода:

5

  • Решение
    • program kolvo;

      var

      a,kol,i : longint;

      begin

      kol:=0;

      for i:=1 to 10 do

      begin

      readln(a);

      if a>3 then kol:=kol+1;

      end;

      writeln(kol);

      end.


3. Подсчет чисел, которые больше 3 и меньше 9". Вводятся n целых чисел. Напишите программу, которая подсчитывает количество чисел, которые больше 3 и меньше 9.

 

Выходные данные:

n

n целых чисел

Выходные данные:

kol - количество чисел больших 3 и меньших 9

Пример ввода:

9

10

478

5

7

3

-5678

7

777

3

Пример вывода:

3

  • Решение
    • program kolvo;

      var

      n,a,kol,i : longint;

      begin

      readln(n);

      kol:=0;

      for i:=1 to n do

      begin

      readln(a);

      if (a>3) and (a<9) then kol:=kol+1;

      end;

      writeln(kol);

      end.


4. "Подсчет 4 и 5". Вводятся n целых чисел. Напишите программу, которая подсчитывает количество четверок и пятерок среди введенных чисел.

 

Входные данные:

n

n целых чисел

Выходные данные:

kol1 - количество четверок
kol2 - количество пятерок

Пример ввода:

9

10

478

5

7

5

-5678

4

777

3

Пример вывода:

1

2

  • Решение
    • program kolvo;

      var

      n,a,kol1,kol2,i : longint;

      begin

      readln(n);

      kol1:=0;

      kol2:=0;

      for i:=1 to n do

      begin

      readln(a);

      if a=4 then kol1:=kol1+1;

      if a=5 then kol2:=kol2+1;

      end;

      writeln(kol1);

      writeln(kol2);

      end.


5. "Подсчет чисел, равных x". Вводятся n целых чисел и число x. Напишите программу, которая подсчитывает количество чисел, равных x.

 

Входные данные:

n x

n целых чисел

Выходные данные:

kol - количество чисел, равных x

Пример ввода:

9 5

10

478

5

7

5

-5678

4

777

3

Пример вывода:

2

  • Решение
    • program kolvo;

      var

      n,a,x,kol,i : longint;

      begin

      readln(n,x);

      kol:=0;

      for i:=1 to n do

      begin

      readln(a);

      if a=x then kol:=kol+1;

      end;

      writeln(kol);

      end.


 

•Информация о профиле•

Application afterLoad: 0.001 seconds, 0.30 MB
Application afterInitialise: 0.035 seconds, 0.97 MB
Application afterRoute: 0.043 seconds, 1.22 MB
Application afterDispatch: 0.081 seconds, 1.89 MB
Application afterRender: 0.112 seconds, 2.24 MB

•Использование памяти•

2384712

•Зарегистрировано запросов: 22•

  1. SELECT *
      FROM jos_session
      WHERE session_id = 'pktillgdol3v4h5dgvghltllk3'
  2. DELETE
      FROM jos_session
      WHERE ( time < '1732177683' )
  3. SELECT *
      FROM jos_session
      WHERE session_id = 'pktillgdol3v4h5dgvghltllk3'
  4. INSERT INTO `jos_session` ( `session_id`,`time`,`username`,`gid`,`guest`,`client_id` )
      VALUES ( 'pktillgdol3v4h5dgvghltllk3','1732181283','','0','1','0' )
  5. SELECT *
      FROM jos_components
      WHERE parent = 0
  6. SELECT folder AS type, element AS name, params
      FROM jos_plugins
      WHERE published >= 1
      AND access <= 0
      ORDER BY ordering
  7. SELECT *
      FROM jos_migration_backlinks
      WHERE url LIKE '2015-01-05-23-14-32/2016-11-02-10-23-24/198.html%' OR sefurl LIKE '2015-01-05-23-14-32/2016-11-02-10-23-24/198.html%'
  8. SELECT template
      FROM jos_templates_menu
      WHERE client_id = 0
      AND (menuid = 0 OR menuid = 141)
      ORDER BY menuid DESC
      LIMIT 0, 1
  9. SELECT a.*, u.name AS author, u.usertype, cc.title AS category, s.title AS section, CASE WHEN CHAR_LENGTH(a.alias) THEN CONCAT_WS(":", a.id, a.alias) ELSE a.id END AS slug, CASE WHEN CHAR_LENGTH(cc.alias) THEN CONCAT_WS(":", cc.id, cc.alias) ELSE cc.id END AS catslug, g.name AS groups, s.published AS sec_pub, cc.published AS cat_pub, s.access AS sec_access, cc.access AS cat_access 
      FROM jos_content AS a
      LEFT JOIN jos_categories AS cc
      ON cc.id = a.catid
      LEFT JOIN jos_sections AS s
      ON s.id = cc.section
      AND s.scope = "content"
      LEFT JOIN jos_users AS u
      ON u.id = a.created_by
      LEFT JOIN jos_groups AS g
      ON a.access = g.id
      WHERE a.id = 198
      AND (  ( a.created_by = 0 )    OR  ( a.state = 1
      AND ( a.publish_up = '0000-00-00 00:00:00' OR a.publish_up <= '2024-11-21 09:28:03' )
      AND ( a.publish_down = '0000-00-00 00:00:00' OR a.publish_down >= '2024-11-21 09:28:03' )   )    OR  ( a.state = -1 )  )
  10. UPDATE jos_content
      SET hits = ( hits + 1 )
      WHERE id='198'
  11. SELECT id, title, module, position, content, showtitle, control, params
      FROM jos_modules AS m
      LEFT JOIN jos_modules_menu AS mm
      ON mm.moduleid = m.id
      WHERE m.published = 1
      AND m.access <= 0
      AND m.client_id = 0
      AND ( mm.menuid = 141 OR mm.menuid = 0 )
      ORDER BY position, ordering
  12. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='mod_maximenu_CK'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  13. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  14. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='uth_proc'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  15. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  16. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='Olimp'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  17. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  18. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='obr_sv'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  19. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  20. SELECT *
                           
      FROM jos_menu
                           
      WHERE menutype='raznoe'
      AND published=1
                           
      ORDER BY sublevel DESC,ordering
                            ;
  21. SELECT *
                           
      FROM jos_modules
                           
      WHERE published=1
                           
      ORDER BY id
                            ;
  22. SELECT guest, usertype, client_id
      FROM jos_session
      WHERE client_id = 0

•Языковые файлы загружены•

  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.plg_system_debug.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.com_content.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.plg_content_pagebreak.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.tpl_MY_sh.ini
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/en-GB/en-GB.tpl_MY_sh.ini
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_maximenu_CK.ini
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/en-GB/en-GB.mod_maximenu_CK.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_whosonline.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_login.ini 1
  • /var/www/user13295/data/www/ssa.lel-gimnazia.by/language/ru-RU/ru-RU.mod_breadcrumbs.ini 1

•Диагностика непереведённых строк•

•Нет•

•Дизайнер непереведённых строк•

•Нет•