Построение множества из целых чисел, кратных 7, но не кратных 5 и 9 из диапазона от 1 до 200 - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Построить множество, состоящее из целых чисел, кратных 7, но не кратных 5 и 9 из диапазона от 1 до 200.
const a=200;
label 1;
var mnoz: set of 1..a;
    n,b,g,h,i: integer;
begin
n:=0;
  for i:=1 to a do begin
  b:=n-(n/7)*7;
   if b=0 then
   g:= n - (n/9)*9;
   else goto 1;
    if g <> 0 then
     h:= n-(n/5)*5;
     else goto 1;
      if h <> 0 then
       mnoz:= mnoz+n;
       else goto 1;
1:  n:=n+1;
end;
writeln(mnoz);
readln;
end.
чувствую налажал с ифами и нужно заменить их циклом со счетчиком, но вот как это сделать?

Решение задачи: «Построение множества из целых чисел, кратных 7, но не кратных 5 и 9 из диапазона от 1 до 200»

textual
Листинг программы
const
  a = 200;
var
  m : set of 1 .. a;
  i : integer;
 
begin
  for i := 1 to a do
    if (i mod 7 = 0) and (i mod 5 <> 0) and (i mod 9 <> 0) then m := m + [i];
  for i in m do write(i : 4);
end.

Объяснение кода листинга программы

  1. Объявляются две переменные: a (целочисленная константа со значением 200) и m (множество, в котором будут храниться искомые числа).
  2. Переменная i инициализируется значением 1.
  3. Запускается цикл, который будет выполняться до тех пор, пока значение переменной i меньше или равно 200.
  4. Внутри цикла проверяется, делится ли текущее значение i на 7 без остатка.
  5. Если условие выполняется, то проверяется, делится ли текущее значение i на 5 без остатка.
  6. Если условие не выполняется, то проверяется, делится ли текущее значение i на 9 без остатка.
  7. Если все три условия выполняются, то текущее значение i добавляется в множество m.
  8. После завершения первого цикла начинается второй цикл, который перебирает все элементы множества m.
  9. Внутри второго цикла выводится на экран значение каждого элемента множества m, при этом каждое число выводится в отдельной строке, а перед выводом числа выводится его порядковый номер в множестве.
  10. Код завершается.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы