Question

Паскаль.
Напишите программу для вывода четырехзначного числа в обратном порядке.
Пожалуйста,срочно!!!

Answer 1

var a, b:integer;
begin
write('Введите число: ');
readln(a);
repeat;
  b:=b*10+a mod 10;
  a:=a div 10;
until a=0;
writeln(b);
readln;
end.