|
Äàíî íàòóðàëüíîå ÷èñëî N. Îïðåäåëèòü, ÿâëÿåòñÿ ëè îíî ñîâåðøåííûì. Ñîâåðøåííîå ÷èñëî N ðàâíî ñóììå âñåõ ñâîèõ äåëèòåëåé, íå ïðåâîñõîäÿùèõ ñàìî N.
PROGRAM PRG_4;
VAR I, N, SUM : INTEGER;
BEGIN
{ÄÀÍÎ ÍÀÒÓÐÀËÜÍÎÅ ×ÈÑËÎ N. ÎÏÐÅÄÅËÈÒÜ, ßÂËßÅÒÑß ËÈ ÎÍÎ ÑÎÂÅÐØÅÍÍÛÌ. ÑÎÂÅÐØÅÍÍÎÅ ×ÈÑËÎ N ÐÀÂÍÎ ÑÓÌÌÅ ÂÑÅÕ ÑÂÎÈÕ ÄÅËÈÒÅËÅÉ, ÍÅ ÏÐÅÂÎÑÕÎÄßÙÈÕ ÑÀÌÎ N }
REPEAT
WRITE('ÂÂÅÄÈÒÅ ÍÀÒÓÐÀËÜÍÎÅ ×ÈÑËÎ N = ');
READLN (N);
UNTIL N>0;
SUM := 0;
FOR I := 1 TO N DIV 2 DO
IF N MOD I = 0 THEN
SUM := SUM+I;
IF SUM «N THEN
WRITELN('×ÈÑËÎ', N, 'ÑÎÂÅÐØÅÍÍÎÅ')
ELSE
WRITELN('×ÈÑËÎ', N, 'HE ÑÎÂÅÐØÅÍÍÎÅ')
END.
Äëÿ ðåøåíèÿ çàäà÷è:
- ôîðìèðóåì òåëî ïðîãðàììû è îïèñûâàåì ïåðåìåííûå;
- ââîäèì íàòóðàëüíîå ÷èñëî N;
- íàõîäèì âñå äåëèòåëè ÷èñëà N, íå îáÿçàòåëüíî ïðîñòûå, è ñóììèðóåì èõ;
- â çàâèñèìîñòè îò çíà÷åíèÿ SUM âûâîäèì ðåçóëüòàò.
Ïåðåìåííûå:
N - èññëåäóåìîå ÷èñëî;
I - ïåðåìåííàÿ öèêëà;
SUM - ñóììà äåëèòåëåé.
| 
