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