Урок10.1 задача 5: Проверка делимости чисел с выбором диапазона в цикле - Обсуждение решения

Primary tabs

Submitted by nglag on Thu, 07/01/2021 - 15:58

Forums:

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Решение:

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

  for i:= 35 to 117 do
      begin

      if ((i>= 35) AND (i <=117)
      AND ((i mod 2) = 0)) then
      write(1,' ')
      else
      if ((i>= 45) AND (i <=99)
      AND ((i mod 2) <> 0)) then
      write(i, ' ');
      end;


  readln();

end.
  • Log in to post comments
  • 5436 reads
vedro-compota's picture

vedro-compota

Thu, 07/01/2021 - 20:33

форматирование

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

nglag

Sun, 07/11/2021 - 12:45 

program U101Z5;

  var  i: integer;

begin
  for i:=35 to 117 do
      if ((i mod 2) = 0) then // если четное
          write(i, ' ');

  writeln();

  for i:=35 to 117 do //
      if ((i mod 2) <>0) then // если нечетные
          write(i, ' ');

  readln();
end.

nglag

Sun, 07/11/2021 - 12:56

Это решение не работает почему-то:

program U101Z5;

  var  i: integer;

begin
  for i:= 35 to 117 do
      if ((i>= 35) AND (i <=117)
          AND ((i mod 2) = 0)) then
              write(1,' ')

          else
              if ((i>= 45) AND (i <=99)
              AND ((i mod 2) <> 0)) then
                  write(i, ' ');

  readln();
end.

nglag

Sun, 07/11/2021 - 13:12 

program U101Z5;

  var  i: integer;

begin
  for i:= 35 to 117 do
      if ((i>=35) AND (i <=117)
          AND ((i mod 2) = 0)) then
              write(i,' ')

          else
              if ((i>= 45) AND (i <=99)
              AND ((i mod 2) <> 0)) then
                  write(i, ' ');

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

vedro-compota

Sun, 07/11/2021 - 13:23 

if ((i>=35) AND (i <=117)

-- лишняя проверка

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

nglag

Sun, 07/11/2021 - 16:54 

program U101Z52;

  var  i: integer;
      //С одним циклом
begin
  for i:= 35 to 117 do
       if ((i>= 45) AND (i <=99)
           AND ((i mod 2) <> 0)) then
              write(i, ' ')
       else
           if ((i>=35) AND ((i mod 2) = 0)) then
              write(i,' ');

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

vedro-compota

Thu, 07/15/2021 - 19:34 

if ((i>=35) AND ((i mod 2) = 0)) then

есть лишняя проверка

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

nglag

Fri, 07/16/2021 - 11:29

p

rogram U101Z5;

  var  i: integer;

begin
  for i:= 35 to 117 do
      if (i mod 2) = 0 then
              write(i,' ')
      else
          if ((i>= 45) AND (i <=99)
              AND ((i mod 2) = 1)) then
                  write(i, ' ');

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

vedro-compota

Sun, 07/18/2021 - 11:35

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

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