Ввести с клавиатуры 25 чисел. Посчитать сколько нолей из этих 25 чисел.
Ввести с клавиатуры 25 чисел. Посчитать сколько нолей из этих 25 чисел.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы