Var n, i: integer; begin readln(n); i:=n; writeln('Делители числа ',n,':'); while i>0 do begin if (n mod i) = 0 then write(i, ' '); i:=i-1; end; read; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
