Задача 4 Урок 13.1
Primary tabs
Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.
var i, j: integer; begin write('vvedite chislo: '); readln(j); while (j >= 1) do begin for i:=1 to j do if ((i mod 2)=1) and ((i mod 5)=0) then write(i, ' '); write('vvedite chislo: '); readln(j); end; write('konec!'); readln(); end.
КОНСОЛЬ:
vvedite chislo: 30 5 15 25 vvedite chislo: 0 konec!
- Log in to post comments
- 509 reads