Составить программу перестановки первой и последней цифр введенного четырех значного числа

Question

Амата

2 июля, 15:51

+1

Ответы (1)

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

Рустя · Answer 1

Var a, a1:integer;

begin

readln (a) ;

a1:=a mod 10;

a:=a1*1000 + (a mod 1000-a1) + (a div 1000) ;

writeln (a) ;

end.

Пример:

8391

1398