1.дано натуральное число m. подсчитать количество всех 0 в числе. 2.дано натуральное число n. вывести это число в обратном порядке (все на языке паскаль abc)

223

348

Посмотреть ответы 2

Ответы на вопрос:

OlyaSara

Информатика

4,4(36 оценок)

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.