Pascal ABC Дано целое положительное число определить сколько в-нём двоек и нулей в заданном числе
Pascal ABC Дано целое положительное число определить сколько в-нём двоек и нулей в заданном числе
Гость
Ответ(ы) на вопрос:
Гостьvar a,k,n,m:integer;
begin
writeln('Введите число');
readln(a);
m:=a; k:=0; n:=0;
while a<>0 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.
Не нашли ответ?
Похожие вопросы