Написать программу, в которой используется процедура Por(K), меняющую порядок следования цифр целого положительного числа K на обратный (K — параметр целого типа, являющийся одновременно входным и выходным).
Sample Input 1:
643254
Sample Output 1:
452346
Sample Input 2:
479554
Sample Output 2:
455974
Решите пожалуйста на Паскале
Sample Input 1:
643254
Sample Output 1:
452346
Sample Input 2:
479554
Sample Output 2:
455974
Решите пожалуйста на Паскале
More Questions From This User See All
Answers & Comments
===== PascalABC.NET =====
procedure Por(var k:integer);
begin
var m := 0;
while k > 0 do
begin
m := m * 10 + k mod 10;
k := k div 10
end;
k := m;
end;
begin
var n := ReadInteger('Введи натуральное число:');
Por(n);
Print(n)
end.