Урок 11 задача 3

Primary tabs

Submitted by avast36 on Tue, 03/29/2022 - 16:20

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

Решение:

var a:integer;
begin
  a:=35;
  while (a>=35)and(a<=117) do
  begin
    if (a mod 3) = 0 then
      write(a, ' ');
    a:=a+1;
  end;
readln();
end.

Консоль:

36 39 42 45 48 51 54 57 60 63 66 69 72 75 78 81 84 87 90 93 96 99 102 105 108 111 114 117