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

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.