Перевести программу из Pascal в C#: изменить порядок следования цифр числа на обратный

Узнай цену своей работы

Формулировка задачи:

. Описать функцию InvertDigits(K), меняющую порядок следования цифр целого положительного числа K на обратный. С помощью этой функции поменять порядок следования цифр на обратный для каждого из пяти данных целых чисел.
uses crt;
procedure InvertDigits(K:integer;var M:integer);
var i:byte;
begin
M:=0;
while K>0 do
 begin
  i:=K mod 10;
  M:=M*10+i;
  K:=K div 10;
 end;
end;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i:integer;
begin
randomize;
repeat
write('Размер массива от 1 до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=10000+random(90000);
  write(a[i]:8)
 end;
writeln;
writeln('Смена порядка цифр на обратный');
for i:=1 to n do
 begin
  InvertDigits(a[i],a[i]);
  write(a[i]:8);
 end;
end.

Решение задачи: «Перевести программу из Pascal в C#: изменить порядок следования цифр числа на обратный»

textual
Листинг программы
procedure InvertDigits(K:integer;var M:integer);

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы