Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 06.06.2014, 17:03   #1
Shyrick
 
Регистрация: 01.12.2013
Сообщений: 9
Лампочка Использование подпрограмм

Для заданного натурального n найти первые n автоморфных чисел. Написать и использовать в программе логическую функцию, определяющую, является ли число автоморфным.
([Число называется автоморфным, если квадрат этого числа заканчивается этим же числом)
Shyrick вне форума Ответить с цитированием
Старый 06.06.2014, 17:57   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Цитата:
найти первые 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.
Если не ошибаюсь...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 06.06.2014, 22:03   #3
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Чего чего? В каком смысле первые?
Это по поводу неясности от чего считать?
Poma][a вне форума Ответить с цитированием
Старый 06.06.2014, 23:19   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

Цитата:
Сообщение от Poma][a Посмотреть сообщение
Это по поводу неясности от чего считать?
вики - Автоморфное число

Цитата:
Последовательность автоморфных чисел начинается с 1, 5, 6, 25, 76, 376, 625, 9 376, 90 625, 109 376, 890 625, … (последовательность A003226 в OEIS).
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.06.2014, 20:13   #5
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

ошибочка в вики
не
Цитата:
890 625
, а 390 625
upd Я поправил в вики(никогда не ощущал себя таким значимым)
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 07.06.2014, 22:50   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Цитата:
Это по поводу неясности от чего считать?
Ну да. Именно так.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 10.06.2014, 14:03   #7
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
ошибочка в вики
Разве?
390625^2 = 152587890625
898625^2 = 793212890625
Poma][a вне форума Ответить с цитированием
Старый 10.06.2014, 14:32   #8
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

Цитата:
Сообщение от Mad_Cat Посмотреть сообщение
ошибочка в вики
не , а 390 625
upd Я поправил в вики(никогда не ощущал себя таким значимым)
так. поправляйте обратно!!!


Poma][a, респект!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование подпрограмм specnazkin Помощь студентам 0 12.05.2011 14:43
использование подпрограмм ANutaStar Паскаль, Turbo Pascal, PascalABC.NET 0 12.12.2010 12:59
Использование подпрограмм бургер Паскаль, Turbo Pascal, PascalABC.NET 5 29.04.2010 03:21
Использование подпрограмм inferno fm Общие вопросы Delphi 2 19.09.2009 17:37


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS