Натуральное число называется автоморфным,если оно равно последним цифрам своего квадрата.Например,25²=625.Напишите программу,которая получает натуральное число N и выводит на экран все автоморфные числа,не превосходящие N.
Ответы
Ответ дал:
0
Program n1;
function au(n:longint):boolean;
var m:longint;
f:boolean;
begin
m:=n*n;
f:=true;
while (n>0) and f do
begin
if (n mod 10)<>(m mod 10) then f:=false
else begin
n:=n div 10;
m:=m div 10;
end;
end;
au:=f;
end;
var i,n: longint;
begin
readln(n);
for i:=1 to n do if au(i) then write(i,' ');
end.
function au(n:longint):boolean;
var m:longint;
f:boolean;
begin
m:=n*n;
f:=true;
while (n>0) and f do
begin
if (n mod 10)<>(m mod 10) then f:=false
else begin
n:=n div 10;
m:=m div 10;
end;
end;
au:=f;
end;
var i,n: longint;
begin
readln(n);
for i:=1 to n do if au(i) then write(i,' ');
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад