Question

Помоги написать задачу на Паскале. Решить надо с помощью цикла FOR. Вывести на экран все делители данного числа введенного с клавиатуры.

Answer 1

Program OkuraRain;
var x: integer;
  begin
  write('Введите число Х ');
  readln(x);
  writeln('*** Alphaues is thinking... ***');
  writeln('***          OK!            ***');
  writeln();
  writeln('Делители числа Х: ');
  for i:=2 to (x div 2) do
    if x mod i = 0 then writeln (i);
end.

Answer 2

var

n,i:longint;

begin

write ('N = ');readln(n);

for i:=2 to n div 2 do

if n mod i = 0 then writeln (i);

readln;

end. 

 

 

 

 

 

 

Answer 3

Конечно, помогу вам написать задачу на языке Паскаль, которая будет выводить на экран все делители заданного числа, введенного с клавиатуры, с использованием цикла for.

program DisplayDivisors;
var
  number, divisor: integer;

begin
  writeln('Введите число:');
  readln(number);

writeln('Делители числа ', number, ':');
  for divisor := 1 to number do
  begin
    if number mod divisor = 0 then
      writeln(divisor);
  end;

readln;
end.

В этой программе мы сначала запрашиваем у пользователя число с помощью `readln(number)`. Затем мы используем цикл `for` для перебора всех чисел от 1 до заданного числа `number`.

Внутри цикла проверяем, является ли число `divisor` делителем заданного числа `number`. Это делается с помощью условия `number mod divisor = 0`, которое проверяет, делится ли `number` на `divisor` без остатка.

Если условие выполняется (т.е. `divisor` является делителем `number`), то мы выводим `divisor` на экран с помощью `writeln(divisor)`.

Таким образом, программа будет выводить все делители заданного числа, каждый на отдельной строке.

Надеюсь, это поможет вам!