Question

Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна К (К вводится с клавиатуры). Для pascal, через цикл.

Answer 1

Var
k,i: integer;
begin
readln(k);
for i:=100 to 300 do
if i mod k=0 then writeln(i);
end.

Answer 2

Конечно! Вот пример решения задачи на языке Pascal с использованием цикла:

pascalCopy code
program FindNumbers;

var
  K, i, j, sum: Integer;

begin
  // Вводим значение K с клавиатуры
  Write('Введите значение K: ');
  ReadLn(K);

  WriteLn('Целые числа от 100 до 300 с суммой делителей равной ', K, ':');

  // Проверяем каждое число от 100 до 300
  for i := 100 to 300 do
  begin
    sum := 0;
    
    // Проверяем делители числа i
    for j := 1 to i do
    begin
      if i mod j = 0 then
        sum := sum + j;
    end;

    // Если сумма делителей равна K, выводим число
    if sum = K then
      WriteLn(i);
  end;
end.

В этом примере мы вводим значение K с клавиатуры, а затем проверяем каждое целое число от 100 до 300. Для каждого числа мы вычисляем сумму его делителей, проверяя все числа от 1 до числа i. Если сумма делителей равна K, выводим число.

Обратите внимание, что этот код предназначен для компилятора Pascal и может быть запущен в среде разработки, поддерживающей Pascal.