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

Question

Информатика

Прокл

12 марта, 23:20

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

+1

Ответы (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.