1. Дано натуральное число m. Подсчитать количество всех 0 в числе.

2. Дано натуральное число n. Вывести это число в обратном порядке

(все на языке паскаль ABC)

Question

Информатика

Неонила

18 сентября, 04:20

1. Дано натуральное число m. Подсчитать количество всех 0 в числе.

2. Дано натуральное число n. Вывести это число в обратном порядке

(все на языке паскаль ABC)

+5

Ответы (1)

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

Софроний · Answer 1

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.

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

1. Дано натуральное число m. Подсчитать количество всех 0 в числе.

2. Дано натуральное число n. Вывести это число в обратном порядке

(все на языке паскаль ABC)