Äàíû íàòóðàëüíûå ÷èñëà Ì è 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.
|