Руслан
4 год назад
Паскаль. С клавиатуры вводится натуральное число X. Требуется получить число Y, в котором записаны цифры числа X в обратном порядке. Например, X=123 Y=321.Примечание. Пожалуйста посчитайте задачу с помощью рекурсивной процедуры. 50 БАЛЛЛЛОВВВВ
ОТВЕТЫ
Shepherd Nicholas
Oct 24, 2020
var X, Y: longint;
procedure revX(X: longint; var Y: longint);
begin
if X <> 0 then
begin
Y := Y * 10 + (X mod 10);
revX(X div 10, Y);
end;
end;
begin
write('Введите X = ');
readln(X);
revX(X, Y);
writeln(Y);
end.
procedure revX(X: longint; var Y: longint);
begin
if X <> 0 then
begin
Y := Y * 10 + (X mod 10);
revX(X div 10, Y);
end;
end;
begin
write('Введите X = ');
readln(X);
revX(X, Y);
writeln(Y);
end.
276
Смежные вопросы:
