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

В таб­ли­це A хра­нят­ся дан­ные о ко­ли­че­стве при­зе­ров олим­пи­а­ды по про­грам­ми­ро­ва­нию по 9-ти окру­гам Моск­вы. Опре­де­ли­те, что будет на­пе­ча­та­но в ре­зуль­та­те вы­пол­не­ния сле­ду­ю­ще­го ал­го­рит­ма, за­пи­сан­но­го на трех язы­ках про­грам­ми­ро­ва­ния.

 

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

алг

нач

  цел­таб A[1:9]

  цел k, score

  A[1] := 6; A[2] := 11

  A[3] := 7; A[4] := 12

  A[5] := 13; A[6] := 5

  A[7] := 9; A[8] := 3

  A[9] := 4

  score := 0

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

    если A[k] >= 9 то

      score := score + A[k]

    все

  кц

  вывод score

кон

Бей­сик

Пас­каль

DIM A(9) AS INTEGER

DIM k, score AS INTEGER

A(1) = 6: A(2) = 11

A(3) = 7: A(4) = 12

A(5) = 13: A(6) = 5

A(7) = 9: A(8) = 3

A(9) = 4

score = 0

FOR k = 1 TO 9

 IF A(k) >= 9 THEN

  score = score + A(k)

 END IF

NEXT k

PRINT score

END

var k, score: integer;

A: array[1..9] of integer;

begin

  A[1] := 6; A[2] := 11;

  A[3] := 7; A[4] := 12;

  A[5] := 13; A[6] := 5;

  A[7] := 9; A[8] := 3;

  A[9] := 4;

  score := 0;

  for k :=1 to 9 do

      if A[k] >= 9 then

         score := score+A[k];

  write(score);

end.