Выведите число, полученное при прочтении цифр данного числа справа налево.

Вводится четырехзначное число. Паскаль абс нет

Пример 1

Ввод Вывод

1234 4321

Question

Информатика

Патрикий

26 октября, 17:10

Выведите число, полученное при прочтении цифр данного числа справа налево.

Вводится четырехзначное число. Паскаль абс нет

Пример 1

Ввод Вывод

1234 4321

+3

Ответы (1)

Знаете ответ?

Гремислав · Answer 1

Var n, m:integer;

begin

write ('n = ') ;

readln (n) ;

m:=0;

while n>0 do

begin

m:=m*10+n mod 10;

n:=n div 10;

end;

writeln ('m = ', m) ;

end.

Пример:

n = 1234

m = 4321

Выведите число, полученное при прочтении цифр данного числа справа налево.Вводится четырехзначное число. Паскаль абс нетПример 1Ввод Вывод1234 4321

Выведите число, полученное при прочтении цифр данного числа справа налево.

Вводится четырехзначное число. Паскаль абс нет

Пример 1

Ввод Вывод

1234 4321