Урок 11 Задача 13
Primary tabs
13. Пользователь вводит целое 5-тизначное число,
выведите все его цифры в обратном порядке.
var a,f:integer; begin writeln('Vvedite chiso iz 5 znakov: '); readln(f); writeln(); writeln('f=',f); writeln('Cifry v obratnom poryadke:'); while (f>0) do begin a:=f mod 10; //writeln('f=',f); write (a); f:=f div 10; end; readln(); end.
Консоль
Vvedite chiso iz 5 znakov: 26038 f=26038 Cifry v obratnom poryadke: 83062
- Log in to post comments
- 344 reads