Задача 13 урок 11
Primary tabs
Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
46541
(используйте опеции div и mod, подразумевается решение через цикл )
program programma13; var i,a1,a2,a3,a4,a5,b,a : integer; begin a1:=0; a2:=0; a3:=0; a4:=0; a5:=0; writeln('Vvedite pyatiznachnoe chislo:'); readln(a); while i<5 do begin b:=a mod 10; if a1 = 0 then a1:=b else if a2 = 0 then a2:=b else if a3 = 0 then a3:=b else if a4 = 0 then a4:=b else a5:=b; a:=a div 10; i:=i+1; end; writeln((a1*10000)+a2*1000+a3*100+a4*10+a5); readln(); end.
- Log in to post comments
- 530 reads