Тема: Дано натуральное число n. Выяснить, входит ли цифра 3 в запись числа n2
Показать сообщение отдельно
  #4  
Старый 05.11.2010, 07:32
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
Извращенцы

Код:
function Is3InN2(n : integer) : Boolean;
begin
  Result := Pos('3',IntToStr(n*n)) > 0;
end;
Ответить с цитированием