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

Primary tabs

gani84's picture
Submitted by gani84 on Sat, 06/13/2020 - 13:26

Forums:

Задача №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.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 7057 reads
vedro-compota's picture

vedro-compota

Wed, 06/24/2020 - 19:05

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

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

gani84's picture

gani84

Wed, 07/22/2020 - 16:00 

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

vedro-compota

Wed, 07/22/2020 - 19:23

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

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

gani84's picture

gani84

Thu, 08/06/2020 - 15:30 

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

vedro-compota

Thu, 08/06/2020 - 16:22

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

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

gani84's picture

gani84

Fri, 08/07/2020 - 08:56 

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

vedro-compota

Wed, 08/12/2020 - 19:47

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

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