Задача №3 из главы 11
Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.
var i:integer;
begin
i := 35; // начальное значение счетчика(диапозона)
while i <= 117 do //проверка выражения
begin
i:=i + 1; //задаем шаг
if (i mod 3) = 0 then //если делиться на 3 нацело
write(i, ' '); // выводим в одну строку с пробелом
end;
readln();
end.