Question

СРОЧНО!! Написать программу на паскале рассматривается множество целых чисел, принадлежащих отрезку [200; 9120], которые делятся на 8 и не делятся на 7, 11, 17 и 19. Найдите количество таких чисел и минимальное из них. В ответе запишите два числа через пробел: сначала количество, затем минимальное число.

Answer 1

Ответ:

var cnt,min,i: integer;

begin

min:=0;

cnt:=0;

for i:=200 to 9120 do

 begin

 if (i mod 8 = 0) and (i mod 7 <> 0)

 and (i mod 11 <> 0) and (i mod 17 <> 0)

 and (i mod 19 <> 0) then  

   begin

   if (min=0) then min:=i;

   cnt:=cnt+1;

   end;

 end;

writeln(cnt,' ',min);

end.

   

Answer 2

Конечно, вот программа на Pascal, которая решает вашу задачу:

pascalCopy code
program FindNumbers;

var
  count, minValue, i: integer;

begin
  count := 0;
  minValue := MaxInt; // Инициализируем минимальное значение большим числом

  for i := 200 to 9120 do
  begin
    if (i mod 8 = 0) and (i mod 7 <> 0) and (i mod 11 <> 0) and (i mod 17 <> 0) and (i mod 19 <> 0) then
    begin
      Inc(count);

      if i < minValue then
        minValue := i;
    end;
  end;

  writeln(count, ' ', minValue);
end.

Программа перебирает все числа в заданном диапазоне [200; 9120], проверяя каждое из них на условия, заданные в задаче. Если число соответствует условиям, увеличивается счетчик и обновляется значение минимального числа. По завершении работы программы будет выведено количество подходящих чисел и минимальное из них.