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

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

Пример 1

Ввод Вывод

1234 4321

Question

Информатика

Магна

14 мая, 00:31

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

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

Пример 1

Ввод Вывод

1234 4321

+2

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