Задача 13 Урок 11
Primary tabs
Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим: 46541
(используйте опеции div и mod, подразумевается решение через цикл )
var a,b,c: integer; begin write('vvedite pyatizna4noe 4islo - '); readln(c); if (c >= 10000) and (c <= 99999) then begin a := c; if a > 0 then begin b := b * 10 + a mod 10; a := a div 10; end; if a > 0 then begin b := b * 10 + a mod 10; a := a div 10; end; if a > 0 then begin b := b * 10 + a mod 10; a := a div 10; end; if a > 0 then begin b := b * 10 + a mod 10; a := a div 10; end; if a > 0 then begin b := b * 10 + a mod 10; a := a div 10; end; writeln('vvedennoe 4islo - ',c); write('perevorot 4isla - ',b) end else begin writeln('4islo ne pyatiznachnoe!'); writeln('vvedennoe 4islo - ',c); end; readln(); end.
ну... можно было и облегчить себе жизнь:
var a,b:integer; begin writeln('vvedite pyatiznachnoe chislo - '); 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
- 472 reads