Çàî÷íîå äèñòàíöèîííîå îáðàçîâàíèå ñ ïîëó÷åíèåì ãîñóäàðñòâåííîãî äèïëîìà ÷åðåç Internet










Ïîëó÷èòü èíôîðìàöèþ î ïîñòóïëåíèè
 
Ãëàâíàÿ Íîâîñòè Êàðòà ñàéòà Ôîòîàëüáîì Ãîñòåâàÿ êíèãà Êîíòàêòû

 

Óïðàæíåíèå 4 (Ïðîèçâîäÿùèå ôóíêöèè è ðÿäû)

Äàíî íàòóðàëüíîå ÷èñëî 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 - ñóììà äåëèòåëåé.



 
     
   
 


Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êðóãëîì ñòîëå!
ïîäðîáíåå   >>>
 

Èíñòèòóò Ìåíåäæìåíòà, Ýêîíîìèêè è Èííîâàöèé íà÷èíàåò íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Óâàæåìûå ñòóäåíòû ÀÍÎ ÂÏÎ ÈÌÝèÈ!
ïîäðîáíåå   >>>
 

Íà÷èíàåòñÿ íàáîð íà êóðñû ïîâûøåíèÿ êâàëèôèêàöèè!
ïîäðîáíåå   >>>
 

Ïðèãëàøàåì ïðèíÿòü ó÷àñòèå â êîíôåðåíöèÿõ!
ïîäðîáíåå   >>>
 


âñå íîâîñòè...

 


Ðàññûëêè Subscribe.Ru
Ñîâðåìåííîå îáðàçîâàíèå
Ïîäïèñàòüñÿ ïèñüìîì