. Дано натуральное P. Найти все делители числа P. Программа в паскале, помогите…

Question

41

. Дано натуральное P. Найти все делители числа P. Программа в паскале, помогите решитьпожалуйста)

в избранное ссылка

Знаете ответ?

andersy · Accepted Answer

36

andersy

28 февраля 2023

var N,i: integer; beginreadln (N); i: =2; while N<>1 do beginwhile N mod i=0 do begin writeln (i,'); N: =N div i; end; inc (i); end; end.

комментировать

в избранное ссылка отблагодарить