Перевести программу из 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);