Поменять местами первую и последнюю цифру в 4-х значном числе на pascal ABC

Question

Информатика

Кока

30 ноября, 02:29

Поменять местами первую и последнюю цифру в 4-х значном числе на pascal ABC

+4

Ответы (1)

Знаете ответ?

Танюта · Answer 1

Var a, b:integer;

begin

readln (a) ;

b:=abs (a) ;

b: = (b mod 10*1000) + (b div 10 mod 100*10) + (b div 1000) ;

if a>0 then a:=b else a:=-b;

writeln (a) ;

end.

Пример:

4567

7564