Задача 13 Урок 11
Primary tabs
Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564
var a,b : integer; begin writeln('write five-digit number'); 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
- 713 reads