Использование подпрограмм

[Shyrick]

Для заданного натурального n найти первые n автоморфных чисел. Написать и использовать в программе логическую функцию, определяющую, является ли число автоморфным.
([Число называется автоморфным, если квадрат этого числа заканчивается этим же числом)

[Stilet]

найти первые n автоморфных чисел

Чего чего? В каком смысле первые?

Число называется автоморфным, если квадрат этого числа заканчивается этим же числом

function Bamblebee(n:integer):Boolean;
var s,s2:string;k,e:integer;
begin
 str(n,s2); str(n*n,s);  Bamblebee:=copy(s,Length(s)-Length(s2),Length(s2))=s2;
end.

Если не ошибаюсь...

[Poma][a]

Чего чего? В каком смысле первые?

Это по поводу неясности от чего считать?

[Serge_Bliznykov]

Сообщение от Poma][a

Это по поводу неясности от чего считать?

вики - Автоморфное число

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

[Mad_Cat]

ошибочка в вики
не

890 625

, а 390 625
upd Я поправил в вики(никогда не ощущал себя таким значимым)

[Stilet]

Это по поводу неясности от чего считать?

Ну да. Именно так.

[Poma][a]

ошибочка в вики

Разве?
390625^2 = 152587890625
898625^2 = 793212890625

[Serge_Bliznykov]

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

ошибочка в вики
не , а 390 625
upd Я поправил в вики(никогда не ощущал себя таким значимым)

так. поправляйте обратно!!!


Poma][a, респект!