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

anya2403 anya2403    2   19.05.2019 10:20    2

Ответы
KatyaBelchik12 KatyaBelchik12  12.06.2020 14:24

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика