Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число

code: #pascal
Program Integer13;
var x,a,b,c,p:integer;
begin
Writeln('Введите число a');
readln(x);
a:=x div 100;
c:=x mod 100;
p:=c*10+a;
Writeln ('Перестановленное местами =',p);
end.

автор: Zakirov Nail a.k.a ZevsNet

Поделиться:

Похожие статьи: