Задание 6 Урок 10

Primary tabs

Submitted by Dobrii_kot on Wed, 09/16/2020 - 16:25

Forums:

Задание 6 Урок 10

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

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

   readln();
end.
  • Log in to post comments
  • 996 reads
vedro-compota's picture

vedro-compota

Wed, 09/16/2020 - 19:36

  1. тут есть избыточные проверки
  2. и неточность в одном в из условий

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

Dobrii_kot

Mon, 09/21/2020 - 16:54

Исправленный вариант

убрал проверку на 35, исправил проверку на четность на нечетность

var i: integer;
begin
 for i := 35 to 117 do
   if ((i mod 3) = 0) or (((i mod 2) = 1) and ((i >= 45) and (i <= 99))) then
     write(i, ' ');

   readln();
end.