Ответ(ы) на вопрос:
ГостьИЗИ
var
N1, N2 : Word;
begin
Write('Введите число: '); ReadLn(N1);
N2 := 0; while N1 > 0 do begin N2 := N2 * 10 + N1 mod 10; N1 := N1 div 10; end;
WriteLn('Перевёрнутый результат: ', N2);
end.
Не нашли ответ?
Похожие вопросы