Написать программу, в которой используется процедура - вопрос №10469169 от kirillstetskii 11.12.2021 18:58

Question

Информатика: Написать программу, в которой используется процедура por(k), меняющую порядок следования цифр целого положительного числа k на обратный (k — параметр целого типа, являющийся одновременно входным и выходным). sample input 1: 643254 sample output 1: 452346 sample input 2: 479554 sample output 2: 455974решите на паскале

kirillstetskii · Answer

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.