Описать процедуру, меняющую порядок следования цифр целого положительного числа на обратный - Pascal ABC

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

описать процедуру InvertDigits(K),меняющую порядок следования цифр целого положительного числа К на обратный (К параметр целого типа, являющийся одновременно входным и выходным ) С помощью этой процедуры поменять порядок следования цифр на обратный для N элементов массива целых чисел

Код к задаче: «Описать процедуру, меняющую порядок следования цифр целого положительного числа на обратный - Pascal ABC»

textual
uses crt;
//процедура переворота числа
//входной параметр К-данное число, выходной- М-новое число
procedure InvertDigits(K:integer;var M:integer);
var i:byte;
begin
M:=0;//новое пока=0
while K>0 do//пока данное больше 0 например 123
 begin
  i:=K mod 10;//берем последнюю цифру  3, 2, 1
  M:=M*10+i;//умножаем уже полученное число и прибавляем эту цифру 1, 12, 123
  K:=K div 10; //сокращаем данное в 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);//я сделал числа от 10000 до 99999, можно изменить
  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.

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы