Решить с использованием подпрограммы. заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (например, дано число 156, нужно получить 651)

Радик174 Радик174    2   10.08.2019 10:10    11

Ответы
egorsh1 egorsh1  20.08.2020 06:38
Var
 N:integer;

procedure Change(var n);
var
 n2,n3,i:integer;
begin
i:=1;
n2:=n;
n:=0;
 while n2>0
  begin 
   n3:=n2 mod 10;
   n2:=n2 div 10;
   n:=n*i + n3;
   i:=i*10;
  end;
end;

begin
  readln(N);
  Change(N);
  writeln(N);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика