Составить программу записывающее четырехзначное число наоборот
Составить программу записывающее четырехзначное число наоборот
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы