
Biam
6 год назад
Дано трехзначное число. Найти число, полученное при перестановке первой и последней
цифр заданного числа.
Pascal
ОТВЕТЫ

Макарий
Jul 6, 2019
Var a,b:integer;
begin
write(A = );
readln(a);
b:=(a mod 10*100)+(a div 10 mod 10*10)+(a div 100);
writeln(b = ,b);
end.
Пример:
A = 538
b = 835
begin
write(A = );
readln(a);
b:=(a mod 10*100)+(a div 10 mod 10*10)+(a div 100);
writeln(b = ,b);
end.
Пример:
A = 538
b = 835
95