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

Primary tabs

Submitted by neffgd on Wed, 04/07/2021 - 09:45

Forums:

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

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

var a:integer;
begin
  for a:= 35 to 117 do
      if ((a mod 3 = 0)) then
           write(a, ' ');
  readln();
end.
  • Log in to post comments
  • 3187 reads

neffgd

Wed, 04/07/2021 - 09:51 

var a:integer;
begin
  for a:= 35 to 117 do
      if ((a mod 3) = 0) then // скобки перепутал
           write(a, ' ');
  readln();
end.

sergio

Wed, 04/07/2021 - 15:57

здесь нужно добавить проверку на нечетность

neffgd

Wed, 04/07/2021 - 16:06 

var a:integer;
begin
  for a:= 35 to 117 do
      if ((a mod 3) = 0) AND ((a mod 2) = 1) then //  проверка на нечетность
           write(a, ' ');
  readln();
end.

так?