Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Дано четырехзначное число в нем зачеркнули последнюю цифру и приписали ее в начало числа. Найти его, и записать в программе 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.