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

Question

Амата

20 января, 04:11

+5

Ответы (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