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

Question

Информатика

Глебыч

11 июля, 21:32

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

+5

Ответы (1)

Знаете ответ на вопрос?

Романа · Answer 1

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.