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

Составьте программу , выходящую на экран все делители числа х .Число х введите с клавиатуры . Пример ввода : 12 Пример вывода : 1 2 3 4 6 12
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы