Упражнение 7 (Производящие функции и ряды)

VAR N, R, M : INTEGER;

BEGIN

{ДАНО НАТУРАЛЬНОЕ ЧИСЛО N. ОПРЕДЕЛИТЬ, ЯВЛЯЕТСЯ ЛИ ОНО АВТОМОРФНЫМ. АВТОМОРФНОЕ

ЧИСЛО N РАВНО ПОСЛЕДНИМ РАЗРЯДАМ КВАДРАТА ЭТОГО ЧИСЛА:

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