Ввести с клавиатуры 25 чисел. Посчитать сколько нолей из этих 25 чисел.

Ответы (1)

Зизи 14.04.2024 4

Var i,k:integer;
s:string;
Begin
for i := 1 to 25 do begin
   readln(k);
   s:=s+inttostr(k);
end;

k:=0;
for i := 1 to length(s) do
   if s[i]='0' then k:=k+1;

writeln('K=',k);
End.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ