Задача 13 Урок 11
Primary tabs
Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
46541(используйте опеции div и mod, подразумевается решение через цикл )
var a: integer; begin write('Введите целое пятизначное число: '); readln(a); while a > 9 do begin write(a mod 10); a := a div 10; end; writeln(a); readln(); end.
- Log in to post comments
- 358 reads