Решение задачи №3 из главы 11

Primary tabs

gani84's picture
Submitted by gani84 on Thu, 07/12/2018 - 13:18

Forums:

Задача №3 из главы 11

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var i:integer;
begin
  i := 35; // начальное значение счетчика(диапозона)
  while i <= 117 do //проверка выражения
  begin
    i:=i + 1;  //задаем шаг
    if (i mod 3) = 0 then   //если делиться на 3 нацело
      write(i, ' '); // выводим в одну строку с пробелом
  end;
  readln();
end.

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

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

vedro-compota

Sat, 07/21/2018 - 23:24

35 у вас вообще не проверяется, сразу начинаете с 36 -- это опасно в общем случае. Исправьте.

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

gani84's picture

gani84

Sun, 07/22/2018 - 12:27

35 на 3 не делиться нацело поэтому он и отбрасывается!!! т.е невыполняется условие 

if (i mod 3) = 0 then   //если делиться на 3 нацело
      write(i, ' ');

Поэтому он его и откидывает

vedro-compota's picture

vedro-compota

Tue, 09/25/2018 - 20:29

нет, не "он его откидывает", а ваша программа проверяет первое число 36, поэтому:

  • 1) ответьте почему это так (почему 36 а не 35 -- внимательно посморите на свой код)
  • 2) исправьте решение.

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

gani84's picture

gani84

Mon, 10/01/2018 - 12:15

Так как мы увеличиваем на +1 сразу то мы должны начать отсчет от 34

var i:integer;
begin
  i := 34; // начальное значение счетчика (диапазона)
  while i <= 117 do //проверка выражения
  begin
    i:=i + 1;  //задаем шаг
    if (i mod 3) = 0 then   //если делиться на 3 нацело
      write(i, ' '); // выводим в одну строку с пробелом
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Thu, 02/28/2019 - 18:17

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

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

Rus13

Sun, 10/10/2021 - 19:26

Здесь не выводит нечетные числа. Только те, которые на 3 нацело делятся.