Задача в Паскале!
Дано трехзначное число - X, выделите его цифры и выведите их в обратном порядке.

1

Ответы и объяснения

2013-09-10T19:39:09+04:00
Var n:integer;
begin
  repeat
    write ('N = ');
    readln (n);
  until (n>99) and (n<1000);
 while n<>0 do
   begin
     write (n mod 10);
     n:=n div 10;
   end;
  readln;
end.