В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] — количество учеников в первом классе, Dat[2] — во втором и т. д.). Определите, какое число будет напечатано в результате рабо...
В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] — количество учеников в первом классе, Dat[2] — во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на трёх языках программирования.
Алгоритмический язык
алг
нач
целтаб Dat[1:11]
цел к, m
Dat[1] := 20
Dat[2] := 25
Dat[3] := 19
Dat[4] := 25
Dat[5] := 26
Dat[6] := 22
Dat[7] := 24
Dat[8] := 28
Dat[9] := 26
Dat[10] := 21
Dat[11] := 27
m := 0
нц для к от 1 до 11
если Dat[к] > 22 то
m : = m+1
все
КЦ
вывод m
КОН
Бейсик
DIM Dat(11) AS INTEGER
DIM k,m AS INTEGER
Dat[1] = 20
Dat[2] = 25
Dat[3] = 19
Dat[4] = 25
Dat[5] = 26
Dat[6] = 22
Dat[7] = 24
Dat[8] = 28
Dat[9] = 26
Dat[10] = 21
Dat[11] = 27
m = 0
FOR k := 1 TO 11
IF Dat(k) > 22 THEN
m =m+1
ENDIF
NEXT k
PRINT m
Паскаль
Var k, m: integer;
Dat: array[1...11] of integer;
Begin
Dat[1] := 20;
Dat[2] := 25;
Dat[3] := 19;
Dat[4] := 25;
Dat[5] := 26;
Dat[6] := 22;
Dat[7] := 24;
Dat[8] := 28;
Dat[9] := 26;
Dat[10] := 21;
Dat[11] := 27;
m := 0
for k := 1 to 11 do
if Dat[k] > 22 then
begin
m := m+1;
end;
writeln(m);
End.
Гость
Ответ(ы) на вопрос:
ГостьОтвет: 7
Нy и мне нyжно написать 20 символов
Не нашли ответ?
Похожие вопросы