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

Пример ввода:

12

Пример вывода:

1 2 3 4 6 12

Question

Бояна

1 августа, 03:13

+2

Ответы (1)

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

Ироида · Answer 1

Var x, i : integer;

begin

writeln ('x=') ;

readln (x) ;

for i:=1 to x do

if x mod i = 0 then write (i,' ') ;

writeln;

end.

Составьте программу, выходящую на экран все делители числа х. Число х введите с клавиатуры.Пример ввода:12Пример вывода:1 2 3 4 6 12