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

1

Ответы и объяснения

2013-11-28T01:50:57+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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.