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

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

12

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

1 2 3 4 6 12

Question

Авдотька

26 мая, 03:17

+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