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

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!