составить программу записывающее четырехзначное число наоборот

Question

Информатика

Гортензия

7 января, 09:33

составить программу записывающее четырехзначное число наоборот

+2

Ответы (1)

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

Евдоха · Answer 1

var a, x, b, y, z, c, r, m:integer;

begin

write ('a=') ;

readln (a) ;

r:=a div 1000;

m:=a mod 1000;

x:=m div 100;

b: = m mod 100;

y:=b div 10;

z:=b mod 10;

c: = z*1000+y*100+x*10+r;

writeln ('c=', c) ;

end.