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

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

 

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

Бей­сик

алг
  нач
  цел­таб Ball[1:10]
  цел k, c
  Ball[1] := 4; Ball[2] := 5
  Ball[3] := 4; Ball[4] := 4
  Ball[5] := 2; Ball[6] := 5
  Ball[7] := 4; Ball[8] := 3
  Ball[9] := 4;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) = 4: Ball(2) = 5
Ball(3) = 4: Ball(4) = 4
Ball(5) = 2: Ball(6) = 5
Ball(7) = 4: Ball(8) = 3
Ball(9) = 4: 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
  c := 0;
  Ball[1] := 4; Ball[2] := 5;
  Ball[3] := 4; Ball[4] := 4;
  Ball[5] := 2; Ball[6] := 5;
  Ball[7] := 4; Ball[8] := 3;
  Ball[9] := 4; Ball[10] := 5;
  for k := 1 to 10 do
    if Ball[k] <> 4 then
       c := c + 1;
  write(c);
end.