Напишите функцию function reverse (n: integer): integer (pascal), которая переставляет цифры числа в обратном порядке .

DanilDanq DanilDanq    1   23.07.2019 13:30    1

Ответы
nissanbaev25 nissanbaev25  23.09.2020 23:51
Function reverse(n:integer):integer;
var m:integer;
begin
m:=0;
while n>0 do
 begin
 m:=m*10+n mod 10;
 n:=n div 10;
 end;
reverse:=m;
end;
begin
writeln(reverse(12345));
end.

Результат:
54321
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика