Создать программу которая Выводит на экран все делители числа m
Создать программу которая Выводит на экран все делители числа m
Гость
Ответ(ы) на вопрос:
Гостьvar s,d,m,i:integer;
begin
write('Введите число m');Readln(m);
for i:=2 to m do
if m mod i = 0 then writeln(i);end.
Не нашли ответ?
Похожие вопросы