Задана последовательность целих чисел, которая заканчивается нулём. Найти все автоморфные числа этой последовательности.

@yura0292 · Регистрация: 12.02.2010

Author24 — интернет-сервис помощи студентам

привет! помогите пожалуйста...
Задана последовательность целих чисел, которая заканчивается нулём. Найти все автоморфные числа этой последовательности.

@Сержа · 12.02.2010, 19:17

Сообщение от yura0292

привет! помогите пожалуйста...
все автоморфные числа этой последовательности.

Что это значит

@odip · 12.02.2010, 21:26

Автоморфное число — число, десятичная запись квадрата которого оканчивается цифрами самого этого числа.
http://ru.wikipedia.org/wiki/Автоморфное_число

Последовательность автоморфных чисел начинается с 1, 5, 6, 25, 76, 376, 625, 9 376, 90 625, 109 376, 890 625,

Достаточно проверять только эти, ибо 890 625^2 = 793 212 890 625, то есть уже в 4 байта не входит.

@Сержа · 12.02.2010, 21:48

Кратенько...

Delphi

var
n,i,p,k:integer;
begin
n:=5;    // это кол-во элементов в stringgrid
for i:=0 to n-1 do begin
 p:=strtoint(stringgrid1.Cells[i,0]);
 k:=sqr(p);
  if pos(inttostr(p),inttostr(k))<>0 then
    label1.caption:=label1.caption+inttostr(p)+#13;
 
end;
 
end;

____________________________________
Если я помог не забудь нажать спасибо...

@yura0292 · 14.02.2010, 21:23 **[ТС]**

Огромное спасибо!!!!!

@yura0292 0 / 0 / 0 Регистрация: 12.02.2010 Сообщений: 3
		1
	Задана последовательность целих чисел, которая заканчивается нулём. Найти все автоморфные числа этой последовательности. 12.02.2010, 13:40. Показов 1355. Ответов 4 Метки нет (Все метки) привет! помогите пожалуйста... Задана последовательность целих чисел, которая заканчивается нулём. Найти все автоморфные числа этой последовательности. 0

@Сержа 59 / 58 / 9 Регистрация: 11.12.2009 Сообщений: 350
	12.02.2010, 19:17	2
	Сообщение от yura0292 привет! помогите пожалуйста... все автоморфные числа этой последовательности. Что это значит 0

@odip 7175 / 3234 / 81 Регистрация: 17.06.2009 Сообщений: 14,164
	12.02.2010, 21:26	3
	Автоморфное число — число, десятичная запись квадрата которого оканчивается цифрами самого этого числа. http://ru.wikipedia.org/wiki/Автоморфное_число Последовательность автоморфных чисел начинается с 1, 5, 6, 25, 76, 376, 625, 9 376, 90 625, 109 376, 890 625, Достаточно проверять только эти, ибо 890 625^2 = 793 212 890 625, то есть уже в 4 байта не входит. 1

@yura0292 0 / 0 / 0 Регистрация: 12.02.2010 Сообщений: 3
	14.02.2010, 21:23 [ТС]	5
	Огромное спасибо!!!!! 0