Задача 3 Урок 11
Primary tabs
Задача 3 Урок 11Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.
var i: integer; begin i:= 35; while (i <= 117) do begin if ((i mod 2) <> 0) and ((i mod 3) = 0) then write(i, ', '); i:= i + 1; end; readln(); end.
- Log in to post comments
- 834 reads