Почему бы тебе не закинуть все в одно ? ) не первый раз тебе пишу уже) program p_4; var i, n, count: word; begin readln(n); count : = 0; for i : = 1 to n do begin if n mod i = 0 then inc(count) end; writeln(count) end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
