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

Question

Антонка

2 февраля, 08:29

+4

Ответы (1)

Знаете ответ на вопрос?

Бена · 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.