Задача 13 Урок 11 While
Primary tabs
{Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим: 46541
(используйте операции div и mod )}
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
- 870 reads
vedro-compota
Sat, 05/01/2021 - 12:38
Permalink
решение засчитано
решение засчитано
_____________
матфак вгу и остальная классика =)