Дано четырехзначное число в нем зачеркнули последнюю цифру и приписали ее в начало числа. Найти его, и записать в программе Pascal. (число любое)
var a,b,c, x: real;
begin
write('vvedite chislo');
readln(a);
b:=a mod 10;
c:=a div 10;
x:=b*1000+c;
write('x = ',x);
readln;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a,b,c, x: real;
begin
write('vvedite chislo');
readln(a);
b:=a mod 10;
c:=a div 10;
x:=b*1000+c;
write('x = ',x);
readln;
end.