var
a, b:integer;
begin
a := ReadInteger('введите пятизначное число:');
for var n := 1 to 5 do
b := b*10 + (a mod 10);
a := a div 10;
end;
Println('перевёрнутое число равно:', b);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a, b:integer;
begin
a := ReadInteger('введите пятизначное число:');
for var n := 1 to 5 do
begin
b := b*10 + (a mod 10);
a := a div 10;
end;
Println('перевёрнутое число равно:', b);
end.