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