Написать программу которая для введённого пятизначного числа выводит количество нулей в нем

Question

Информатика

Кирьяна

27 марта, 13:52

Написать программу которая для введённого пятизначного числа выводит количество нулей в нем

+1

Ответы (2)

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

Иваня · Answer 1

var

n: integer;

begin

read (n) ;

write (ord (n mod 10 = 0) + ord (n div 10 mod 10 = 0) + ord (n div 100 mod 10 = 0) + ord (n div 1000 mod 10 = 0)) ;

end.

Людаша · Answer 2

Вот уже писал.

uses crt;

var a, n, i:integer;

begin clrscr;

write ('Vvedite chislo: ') ;

read (a) ; n:=0;

while a0 do begin

if a mod 10=0 then inc (n) ;

a:=a div 10;

end;

writeln ('N=', n) ;

end.