Question

Дано четырехзначное число в нем зачеркнули последнюю цифру и приписали ее в начало числа. Найти его, и записать в программе Pascal. (число любое)

Answer 1

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.