1.Дано натуральное число m. Подсчитать количество всех 0 в числе. 2.Дано натуральное число n. Вывести это число в обратном порядке (все на языке паскаль ABC)
1.Дано натуральное число m. Подсчитать количество всех 0 в числе.
2.Дано натуральное число n. Вывести это число в обратном порядке
(все на языке паскаль ABC)
Ответ(ы) на вопрос:
Гость
Var
m,n:integer;
Begin
WriteLn('m = ');
ReadLn(m);
n:=0;
While m>0 do
Begin
if m mod 10 = 0 then n:=n+1;
m:=m div 10
End;
WriteLn('Кол-во нулей в данном числе равно: ',n);
End.
Var
n:integer;
Begin
Write('n = ');
ReadLn(n);
While n>0 do
Begin
Write(n mod 10);
n:= n div 10
End;
End.
Не нашли ответ?
Похожие вопросы