Составить программу выводящую на экран все делители на число х. (число х вводится с клавиатуры)

+2
Ответы (1)
  1. 27 января, 16:32
    0
    prog poi; / название программы, может быть любое, в каких то версиях ставится само;

    var x, del : integer; / переменные целого типа;

    begin / тело программы;

    write ('Введите x : '); / просим ввести пользователя значение числа х;

    readln (x); / ввод числа;

    write ('Делители : '); / делители;

    for del : = 1 to x do / цикл в котром выбираются делители;

    if (x mod del) = 0 then

    write (del, ' '); / выводим делители на экран;

    writeln;

    end.
Знаешь ответ на этот вопрос?