Версия для копирования в MS Word
PDF-версии: горизонтальная · вертикальная · крупный шрифт · с большим полем
РЕШУ ОГЭ — информатика
Задания
i

В таб­ли­це 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.