Дано натуральное число 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 — вспомогательные переменные.