Натуральное число называется автоморфным, если оно равно последним числам своего квадрата. Например 25^2 = 625. Напишите программу, которая получает натуральное число N и выводит на экран все автоморфные числа, не превосходящие N.

Question

Информатика

Виссарион

21 марта, 03:19

Натуральное число называется автоморфным, если оно равно последним числам своего квадрата. Например 25^2 = 625. Напишите программу, которая получает натуральное число N и выводит на экран все автоморфные числа, не превосходящие N.

+1

Ответы (1)

Знаете ответ?

Софроний · Answer 1

Var

N, A:integer;

B:longint;

k:boolean;

Begin

Write ('N = ') ;

ReadLn (N) ;

For N: = 1 to N do

Begin

k:=true;

A:=N;

B:=A*A;

While A0 do

Begin

if (A mod 10 B mod 10) then k:=false;

A: = A div 10;

B: = B div 10;

End;

if k then Write (N,' ') ;

End;

End.