Вопрос Помогите! Составить программу "Переворот". div, mod) Дано 257, надо 752

[Nomad1301]

Помогите! Составить программу "Переворот". div, mod) Дано 257, надо 752

 

[kirill.kirill6211]

var k,s:longint; begin readln(k); s:=0; repeat s:=10*s+k mod 10; k:=k div 10 until k=0; writeln(s) end.

 

[Тамик]

Var a,b,c:integer; Begin Readln(a); While a<>0 do begin c:=a mod 10; b:=10*b+c; a:=a div 10; End; Write(b); End.