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

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

Пример 1

Ввод Вывод

1234 4321

Question

Информатика

Силя

25 апреля, 18:51

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

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

Пример 1

Ввод Вывод

1234 4321

+1

Ответы (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