Var a,x,y:integer;
begin
writeln ('Введи двузначное число');
readln (a);
x:=a div 10 mod 10;
y:=a mod 10;
a:=y*10+x;
writeln (a);
end.
Думаю помог)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Var a,x,y:integer;
begin
writeln ('Введи двузначное число');
readln (a);
x:=a div 10 mod 10;
y:=a mod 10;
a:=y*10+x;
writeln (a);
end.
Думаю помог)