Урок 11 Задача 13
Primary tabs
Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке
var k, a, i: integer; begin i:=0; k:=0; a:=1; while a>0 do begin if (i=0) then begin writeln('vvedite chislo iz 5 znakov'); readln(a); end; k:=k*10+(a mod 10); a:=a div 10; i:=i+1; if ((a=0) and not(i=5)) then begin a:=1; i:=0; k:=0; end; end; writeln(k); readln(); end.
- Log in to post comments
- 382 reads