Pascal ABC Дано целое положительное число определить сколько в-нём двоек и нулей в заданном числе

Question

Информатика

Аполлинарий

2 декабря, 08:40

Pascal ABC Дано целое положительное число определить сколько в-нём двоек и нулей в заданном числе

+5

Ответы (1)

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

Натоха · Answer 1

Var a, k, n, m:integer;

begin

writeln ('Введите число') ;

readln (a) ;

m:=a; k:=0; n:=0;

while a0 do begin

if a mod 10=2 then k:=k+1

else if a mod 10=0 then n:=n+1;

a:=a div 10;

end;

writeln ('В числе ', m,' ', k,' двоек и ', n,' нулей') ;

readln

end.