Question

Написать программу, в которой используется процедура Por(K), меняющую порядок следования цифр целого положительного числа K на обратный (K — параметр целого типа, являющийся одновременно входным и выходным). Sample Input 1: 643254 Sample Output 1: 452346 Sample Input 2: 479554 Sample Output 2: 455974Решите пожалуйста на Паскале

Answer 1

===== 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.

Answer 2

Конечно, вот решение на языке Pascal:

pascalCopy code
program ReverseDigits;
var
  K, temp, reversed: Integer;

procedure Reverse(var num: Integer);
var
  digit: Integer;
begin
  reversed := 0;
  while num <> 0 do
  begin
    digit := num mod 10;
    reversed := reversed * 10 + digit;
    num := num div 10;
  end;
  num := reversed;
end;

begin
  Write('Введите число K: ');
  Readln(K);

  Reverse(K);

  Writeln('Результат: ', K);
end.

Эта программа сначала объявляет переменные K, temp и reversed. Процедура Reverse используется для изменения порядка цифр числа. В основной части программы пользователю предлагается ввести число K, после чего вызывается процедура Reverse, которая изменяет порядок цифр. Наконец, программа выводит полученный результат.

Вы можете скомпилировать и запустить эту программу в среде разработки Pascal, чтобы увидеть результат.