составить программу выводящую на экран все делители числа x, число x, введите с клавиатуры

Question

Информатика

Ион

4 февраля, 11:22

составить программу выводящую на экран все делители числа x, число x, введите с клавиатуры

+3

Ответы (1)

Знаете ответ на вопрос?

Галинуха · Answer 1

program m1;

uses crt;

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.