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

ИЗИ
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.

Оцени ответ
Не нашёл ответ?

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку
© Задачки.net