Задача 13 урок 11
Primary tabs
http://fkn.ktu10.com/?q=node/7341
Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
46541
program task13_lesson11; var a,b:integer; begin writeln('Enter 5 numbers integer :'); readln(a); while (a mod 10) <> 0 do begin b:=a mod 10; a:=a div 10; write(b); end; readln(); end.
- Log in to post comments
- 554 reads