Сделать из числа 123 число 312 в pascal

Question

Информатика

Ермолай

24 ноября, 21:02

Сделать из числа 123 число 312 в pascal

+5

Ответы (1)

Знаете ответ?

Кара · Answer 1

ИЗИ

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.