Задача 4 Урок 10.1

Primary tabs

Submitted by alterMann on Tue, 08/03/2021 - 16:02

Forums:

Задача 4 Урок 10.1

Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var i: integer;
begin
  for i := 35 to 117 do
      if ((i mod 2) = 0) and ((i mod 3) = 0) then
         write (i, ' ');
  readln();
end.
  • Log in to post comments
  • 1495 reads
vedro-compota's picture

vedro-compota

Tue, 08/03/2021 - 16:47

написано нечетные, проверьте решение ещё раз

_____________
матфак вгу и остальная классика =)

alterMann

Wed, 08/04/2021 - 18:23

Исправил.

var i: integer;
begin
  for i := 35 to 117 do
      if ((i mod 2) <> 0) and ((i mod 3) = 0) then
         write (i, ' ');
  readln();
end.