Question

Написать программу для Паскаля. Вывести на экран все числа до 1000, количество делителей которых больше чем 5

Answer 1

Program hhh54;
var i,j,k: longint;
begin
  for i:=1 to 1000 do
    begin
      k:=0;
      for j:= 1 to i do
        if i mod j =0 then k:=k+1;
      if k > 5 then writeln (i);
    end;
end.

Answer 2

Я могу помочь тебе написать программу для Паскаля, которая выводит на экран все числа до 1000, количество делителей которых больше чем 5. Вот пример такой программы:

program Divisors;
var
  i, j, count: integer;
begin
  for i := 1 to 1000 do
  begin
    count := 0; // счетчик делителей
    for j := 1 to i do
    begin
      if i mod j = 0 then // если j делит i без остатка
        count := count + 1; // увеличить счетчик
    end;
    if count > 5 then // если количество делителей больше 5
      writeln(i, ' has ', count, ' divisors'); // вывести число и количество делителей
  end;
end.

Эта программа использует два вложенных цикла for для перебора всех чисел от 1 до 1000 и всех их возможных делителей. Для каждого числа i она подсчитывает количество делителей j, которые делят i без остатка, используя оператор mod. Если это количество больше 5, то программа выводит число i и количество его делителей на экран, используя функцию writeln. Надеюсь, это поможет тебе понять, как написать такую программу.