Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Без шуток, но все это можно прогуглить
б,в,г,е - лцд остальное к трубке
program divisors;
var
n,i: integer;
begin
readln(n);
for i: =n downto 1 do if n mod i = 0 then write(i,' ');
end.
Популярные вопросы