Ввести число N. Вывести число, получаемое выписыванием в обратном порядке цифр числа N. (Например, 1234, результат 4321).

pascal цикл while или repeat

Question

Информатика

Светислава

5 мая, 09:21

Ввести число N. Вывести число, получаемое выписыванием в обратном порядке цифр числа N. (Например, 1234, результат 4321).

pascal цикл while или repeat

+4

Ответы (2)

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

Галика · Answer 1

Program n1;

var

n, a, m: longint;

begin

write ('введите число: ') ;

readln (n) ;

m : = 0;

while n>0 do begin

a : = n mod 10;

n : = n div 10;

m : = m*10 + a;

end;

writeln ('перевернутое число: ', m) ;

end.

Ифигения · Answer 2

Var

n, nn : integer;

begin

repeat

write ('Введите число, не оканчивающиеся на 0: ')

readln (n) ;

until (n mod 10) 0;

while n>0 do

begin

nn:=nn*10 + (n mod 10) ;

n:=n div 10;

end;

write (nn) ;

end.

Ввести число N. Вывести число, получаемое выписыванием в обратном порядке цифр числа N. (Например, 1234, результат 4321).pascal цикл while или repeat

Ввести число N. Вывести число, получаемое выписыванием в обратном порядке цифр числа N. (Например, 1234, результат 4321).

pascal цикл while или repeat