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