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

Question

Информатика

Светланка

15 июля, 20:30

Ввести с клавиатуры 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.