Евгений
5 год назад
запросить 40 чисел подсчитать количество чисел равных 0
ОТВЕТЫ
Нина
Oct 24, 2020
Program n1;
var i,k,a: integer;
begin
k:=0;
for i:=1 to 40 do begin
readln(a);
if a=0 then k:=k+1;
end;
write(k);
end.
var i,k,a: integer;
begin
k:=0;
for i:=1 to 40 do begin
readln(a);
if a=0 then k:=k+1;
end;
write(k);
end.
404
Смежные вопросы:
