Какое число получится в результате работы данной программы? program 'm';
var k,m: integer
B: array[1..10] of integer;
begin
B:=7; B[2]:=9;
B[3]:=10; B[4]:=5;
B[5]:=6; B[6]:=7;
B[7]:=9; B[8]:=8;
B[9]:=6; B[10]:=7;
m:=0
for k:=1 to 10 do
if B[k]<8 then begin
m:=m+1
end;
writeln(m);
End.
254
371
Ответы на вопрос:
Популярно: Информатика
-
2511200582801.05.2022 17:49
-
Simpson01110.07.2021 20:13
-
Ватрушкасмаком24.06.2021 14:41
-
legoman185812.11.2021 22:54
-
fantomidri31.07.2022 21:47
-
19Викушка19.12.2020 04:49
-
KONERtm17.05.2020 03:40
-
mement0m0ri31.08.2020 17:43
-
dariababaeva121.06.2023 08:50
-
А6р7с8е9н03.02.2020 19:08