Код в Паскале:
uses crt;
var n,k:integer;
begin clrscr;
write(Введите число: ); readln(n);
repeat
k:=k*10+(n mod 10);
n:=n div 10;
until(n=0);
writeln(Обратный порядок: , k);
readln;
end.
Копировать тут(без скобок):
{ uses crt;var n,k:integer;beginclrscr;write(Введите число: ); readln(n);repeatk:=k*10+(n mod 10);n:=n div 10;until(n=0);writeln(Обратный порядок: , k);readln;end. }
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.