Äàíû íàòóðàëüíûå ÷èñëà Ì è N. Îïðåäåëèòü èõ íàèáîëüøèé îáùèé äåëèòåëü NOD.
PROGRAM PRG_5;
VAR I, N, M, K, NOD : INTEGER;
BEGIN
{ÄÀÍÛ ÍÀÒÓÐÀËÜÍÛÅ ×ÈÑËÀ Ì È N. ÎÏÐÅÄÅËÈÒÜ
ÈÕ ÍÀÈÁÎËÜØÈÉ ÎÁÙÈÉ ÄÅËÈÒÅËÜ NOD}
REPEAT
WRITE('BBEÄÈTE ÍÀÒÓÐÀËÜÍÎÅ ×ÈÑËÎ 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;
WRITE('ÍÀÈÁÎËÜØÈÉ ÎÁÙÈÉ ÄÅËÈÒÅËÜ ×ÈÑÅË', N, 'È', Ì, 'NOD =', NOD)
END.
Äëÿ ðåøåíèÿ çàäà÷è:
- ôîðìèðóåì òåëî ïðîãðàììû è îïèñûâàåì ïåðåìåííûå;
- ââîäèì íàòóðàëüíûå ÷èñëà Ì è N;
- â öèêëå îò 1 äî íàèìåíüøåãî ÷èñëà ïîðîæäàåì ÷èñëî I è ïðîâåðÿåì, ÿâëÿåòñÿ ëè îíî îäíîâðåìåííî äåëèòåëåì Ì è N;
- çàïîìèíàåì ýòîò äåëèòåëü â ïåðåìåííîé NOD;
- âûâîäèì ðåçóëüòàò.
Ïåðåìåííûå:
N, Ì - èññëåäóåìûå ÷èñëà;
I - ïåðåìåííàÿ öèêëà;
NOD - íàèáîëüøèé îáùèé äåëèòåëü;
Ê - íàèìåíüøåå èç Ì è N.
|