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










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

 

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

Äàíî íàòóðàëüíîå ÷èñëî N. Îïðåäåëèòü, ÿâëÿåòñÿ ëè îíî àâòîìîðôíûì. Àâòîìîðôíîå ÷èñëî N ðàâíî ïîñëåäíèì ðàçðÿäàì êâàäðàòà ýòîãî ÷èñëà:
5 - 25
6 - 36
25 - 625.
 
PROGRAM PRG_7;

VAR N, R, M : INTEGER;

BEGIN

{ÄÀÍÎ ÍÀÒÓÐÀËÜÍÎÅ ×ÈÑËÎ N. ÎÏÐÅÄÅËÈÒÜ, ßÂËßÅÒÑß ËÈ ÎÍÎ ÀÂÒÎÌÎÐÔÍÛÌ. ÀÂÒÎÌÎÐÔÍÎÅ

×ÈÑËÎ N ÐÀÂÍÎ ÏÎÑËÅÄÍÈÌ ÐÀÇÐßÄÀÌ ÊÂÀÄÐÀÒÀ ÝÒÎÃÎ ×ÈÑËÀ:

 
5 - 25
6 - 36
25 - 625 }

REPEAT

WRITE('BBEÄÈTE ÍÀÒÓÐÀËÜÍÎÅ ×ÈÑËÎ N= ');

READLN (N);

UNTIL N>0;

Ì := N;

R := 1;

WHILE M>0 DO

BEGIN

M := M DIV 10;

R := R*10;

END;

IF (N*N MOD R) = N THEN

WRITELN('×ÈÑËÎ ', N, ' ÀÂÒÎÌÎÐÔÍÎ ') ELSE

WRITELN('×ÈÑËÎ ', N, ' HE ÀÂÒÎÌÎÐÔÍÎ ')

END.

Äëÿ ðåøåíèÿ çàäà÷è:

- ôîðìèðóåì òåëî ïðîãðàììû è îïèñûâàåì ïåðåìåííûå;

- ââîäèì íàòóðàëüíîå N;

- îïðåäåëÿåì, ñêîëüêî â íåì ðàçðÿäîâ, è ôîðìèðóåì R;

- îòäåëÿåì íóæíîå êîëè÷åñòâî ðàçðÿäîâ îò N*N ñ ïîìîùüþ ôóíêöèè N*N MOD R;

- âûâîäèì ðåçóëüòàò.

Ïåðåìåííûå:

N - èññëåäóåìîå ÷èñëî;

Ì, R - âñïîìîãàòåëüíûå ïåðåìåííûå.



 
     
   
 


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

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

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

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

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


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

 


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