Решение задачи №6 из главы 10

Задача №6 из главы 10

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

var i:integer;
begin
  for i:=35 to 117 do // цикл по диапазону [35..178]
   begin
      if ((i >= 45) AND (i <= 99) // если принадлежит отрезку [45..99]
       AND ((i mod 3) = 0)) then // если делящиеся на 3
        write(i, ' ')
      else       //четные числа
       if ((i mod 2) = 1) then // если принадлежит отрезку [35..117] и если нечетное
        write(i, ' ');
   end;
readln();
end.        
vedro-compota's picture

судя по всему неправильно, внимательно читайте условие

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

gani84's picture

var i:integer;
begin
  for i:=35 to 117 do // цикл по [35..117]
   if ((i mod 3) = 0) then // если делиться на 3 на цело
     write(i, ' ');

  writeln(); // перенос строки, чтобы было понятно где начался новый цикл

  for i:=45 to 99 do // цикл по [45..99]
    if ((i mod 2) = 1) then // нечетное число
     write(i, ' ');

  readln();
end.               
vedro-compota's picture

хорошо, добавьте ещё решение одним циклом

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

gani84's picture

var i:integer;
begin
  for i:=35 to 117 do // цикл по диапазону [35..117]
  begin
  if ((i mod 3) = 0) then // если делиться на 3 на цело
     write(i, ' ');
       if ((i >= 45) AND (i <= 99)) // если принадлежит отрезку [45..99]
       then
          if ((i mod 2) = 1) then //  если нечетное
             write(i, ' ');
  end;
readln();
end. 
vedro-compota's picture

переделайте на один блок if, используя в нем логические операции

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

gani84's picture

var i:integer;
begin
  for i:=35 to 117 do // цикл по диапазону [35..117]
  begin
  if ((i mod 3) = 0) OR ((i >= 45) AND (i <= 99)) AND ((i mod 2) = 1) then
      write(i, ' ');
  end;
readln();
end.
vedro-compota's picture

решение засчитано

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