Аверкий 24 октября 2019 в 04:47
Пожалуйста! В Паскале!
Пожалуйста! В Паскале!
Var N,a:Integer;Begin ReadLn(N); a:=0; while Nlt;gt;0 do begin a:=10*a+N mod 10; N:=N div 10 end; writeln(a);end.
Компьютеры и вычисления
127
0
Для комментирования необходимо зарегистрироваться на сайте