Задача 7 Урок 12.1

Primary tabs

Submitted by funguself on Sun, 02/25/2024 - 08:19

Forums:

Задача 7 Урок 12.1

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

var a: integer;
begin
  a:= 35;
  while a < 116 do
  begin
    repeat
      a:= a + 1;
    until (a mod 3 = 0) AND (a mod 6 = 0);
    if a < 118 then
    writeln(a);
  end;
  readln();
end.

Вывод:

36
42
48
54
60
66
72
78
84
90
96
102
108
114

// решила, но код получился максимально некрасивым. Хотела бы узнать, как лучше решить задачу

  • Log in to post comments
  • 330 reads

funguself

Sun, 02/25/2024 - 10:37

Другое решение

var i: integer;
  begin
    i:= 35;
    repeat
      i:= i + 1;
      if i mod 6 = 0 then
       writeln(i, ' ');
    until i = 117;
    readln();
  end.
vedro-compota's picture

vedro-compota

Sun, 02/25/2024 - 11:32 

    i:= 35;
    repeat
      i:= i + 1;

тут единственное замечание - если бы 35 подходило под условие, но мы бы его пропустили, все-таки лучше сначала проверять очередное число и только потом накручивать счетчик)

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