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

1 Январь 0001



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

  • 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. 

     

     

     

     

     

     

  • 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.









Информатика

Комментарии закрыты.