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

Question

50

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

skomaroh · Accepted Answer

54

skomaroh

08 апреля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: