Задача 14 Урок 11
Primary tabs
1.Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке
var a,b:integer; begin writeln('Vvedite chiso iz 5 znakov: '); readln(a); while (a>0) do begin b:=a mod 10; write (b); a:=a div 10; end; readln(); end. Вывод консоли: Vvedite chiso iz 5 znakov: 12345 54321
- Log in to post comments
- 90 reads