1.Дано трехзначное число. Написать программу (Pascal), которая «переставляет» первую...

Question

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

Answer 1

Uses crt;
var a: integer;
begin
     readln(a);
     a:=(a div 10 mod 10)*100+(a mod 10)*10+(a div 100);
     writeln(a);
end.