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

Question

Информатика

Степуня

25 апреля, 17:37

Поменять местами первую и последнюю цифру в 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