Предмет: Информатика, автор: nikki16

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

Ответы

Автор ответа: ElenaChe
0

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.

 

Похожие вопросы
Предмет: Математика, автор: berdeshnarkyz
Предмет: Алгебра, автор: bashka71