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