Äàíî íàòóðàëüíîå ÷èñëî 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 - âñïîìîãàòåëüíûå ïåðåìåííûå.
|