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










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

 

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

Äàíû íàòóðàëüíûå ÷èñëà Ì è N. Îïðåäåëèòü èõ íàèìåíüøåå îáùåå êðàòíîå Nok.

 
PROGRAM PRG_6;

VAR I, N, M, K, NOD, NOK : INTEGER;

BEGIN

{ÄAHÛ ÍÀÒÓÐÀËÜÍÛÅ ×ÈÑËÀ Ì È N.

ÎÏÐÅÄÅËÈÒÜ ÈÕ ÍÀÈÌÅÍÜØÅÅ ÎÁÙÅÅ ÊÐÀÒÍÎÅ NOK}

REPEAT

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

READLN (N);

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

READLN (M);

UNTIL (N>0) AND (M>0);

IF N>M THEN Ê := M

ELSE Ê := N;

FOR I := 1 TO Ê DO

IF (N MOD I = 0) AND (M MOD I = 0) THEN

NOD := I;

NOK := NOD*(N DIV NOD)*(M DIV NOD);

WRITELN('HAÈMEHÜØÅÅ ÎÁÙÅÅ ÊÐÀÒÍÎÅ ×ÈÑÅË');

RITELN(N, 'È', Ì, 'NOK =', NOK)

END.

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

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

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

- â öèêëå îò 1 äî íàèìåíüøåãî ÷èñëà ïîðîæäàåì ÷èñëî I è ïðîâåðÿåì, ÿâëÿåòñÿ ëè îíî îäíîâðåìåííî äåëèòåëåì Ì è N;

- çàïîìèíàåì ýòîò äåëèòåëü â ïåðåìåííîé NOD;

- ó÷èòûâàÿ, ÷òî NOK = NOD*(N DIV NOD)*(M DIV NOD), âûâîäèì ðåçóëüòàò.

Ïåðåìåííûå:

N, M - èññëåäóåìûå ÷èñëà;

I - ïåðåìåííàÿ öèêëà;

NOD - íàèáîëüøèé îáùèé äåëèòåëü;

NOK - íàèìåíüøåå îáùåå êðàòíîå;

Ê - íàèìåíüøåå èç Ì è N.



 
     
   
 


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

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

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

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

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


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

 


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