СДАМ ГИА: РЕШУ ОГЭ
Образовательный портал для подготовки к экзаменам
Информатика
информатика
сайты - меню - вход - новости




Каталог заданий
Назад в каталог
Вернуться к списку прототипов этой категории
Версия для печати и копирования в MS Word
1
Задание 0 № 4846

В таблице Ball хранятся отметки по контрольной работе (Ball[1] − отметка 1 ученика, Ball[2] − отметка 2 ученика и т.д.). Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на трёх языках программирования.

 

Алгоритмический язык

алг

нач

  целтаб Ball[1:10]

  цел k, c

  Ball[1] := 3; Ball[2] := 5

  Ball[3] := 3; Ball[4] := 2

  Ball[5] := 5; Ball[6] := 5

  Ball[7] := 4; Ball[8] := 3

  Ball[9] := 3; Ball[10] := 5

  c := 0

  нц для k от 1 до 10

    если Ball[k] < 4 то

      c := c + 1

    все

  кц

  вывод c

кон

Бейсик

Паскаль

DIM Ball(10) AS INTEGER

DIM k, c AS INTEGER

Ball(1) = 3: Ball(2) = 5

Ball(3) = 3: Ball(4) = 2

Ball(5) = 5: Ball(6) = 5

Ball(7) = 4: Ball(8) = 3

Ball(9) = 3: Ball(10) = 5

c = 0

FOR k = 1 TO 10

 IF Ball(k)< 4 THEN

  c = c + 1

 END IF

NEXT k

PRINT c

END

var k, c: integer;

Ball: array[1..10] of integer;

begin

  Ball[1] := 3; Ball[2] := 5;

  Ball[3] := 3; Ball[4] := 2;

  Ball[5] := 5; Ball[6] := 5;

  Ball[7] := 4; Ball[8] := 3;

  Ball[9] := 3; Ball[10] := 5;

  c := 0;

  for k := 1 to 10 do

    if Ball[k] < 4 then

      c := c + 1;

  write(c);

end.


 


Аналоги к заданию № 4516: 4712 4846 4904 5639 Все

Прототип задания ·