Решение задачи №4 из главы 12.1

Primary tabs

gani84's picture
Submitted by gani84 on Thu, 07/19/2018 - 09:19

Forums:

Задача №4 из главы 12.1

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

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

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

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

vedro-compota

Sat, 07/21/2018 - 23:37

неверное форматирование. Исправьте.

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

gani84's picture

gani84

Sun, 07/22/2018 - 12:07 

var i: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if ((i mod 3)=0) and ((i mod 6)=0) then // проверяем условия
    write(i, ' ');
    i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 08/26/2018 - 19:26

вот этот блок по прежнему отформатирован неверно:

if ((i mod 3)=0) and ((i mod 6)=0) then // проверяем условия
write(i, ' ');
i := i + 1; // увеличиваем счетчик на 1

почему у вас всё на одном уровне? как должно быть? что относится к then, а что на одном уровне с if?

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

gani84's picture

gani84

Mon, 10/01/2018 - 12:26 

var i: integer;
begin
  i := 35;
  repeat    // начало тела цикла
    if ((i mod 3)=0) and ((i mod 6)=0) then // проверяем условия
       write(i, ' ');
         i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  readln();
end
vedro-compota's picture

vedro-compota

Thu, 02/28/2019 - 17:59 

    if ((i mod 3)=0) and ((i mod 6)=0) then // проверяем условия
       write(i, ' ');
         i := i + 1; // увеличиваем счетчик на 1

-- теперь тут не все верно с форматированием

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

gani84's picture

gani84

Mon, 03/04/2019 - 10:50 

var i: integer;
begin
  i := 35;
  repeat    // начало тела цикла
     if ((i mod 3)=0) and ((i mod 6)=0) then // проверяем условия
        write(i, ' ');
        i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  readln();
end.
vedro-compota's picture

vedro-compota

Mon, 03/04/2019 - 19:21

опять неверно. что куда вложено? сколько действий в ветке then?

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

gani84's picture

gani84

Tue, 03/05/2019 - 11:24 

var i: integer;
begin
  i := 35;
  repeat    // начало тела цикла
     if ((i mod 3)=0) and ((i mod 6)=0) then // проверяем условия
        write(i, ' ');
     i := i + 1; // увеличиваем счетчик на 1
  until (i > 117); // выход из цикла только если счетчик станет больше n
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 03/05/2019 - 14:14

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

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