03D95D

Отправлено 5 июл. 2017 г., 12:04 пользователем Галкин Ярослав С.

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

 

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

Бейсик

 алг

  нач
  целтаб Ball[1:10]
  цел k, c
  Ball[1] := 4; Ball[2] := 5
  Ball[3] := 3; 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) = 3: 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] := 3; 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.

Comments