[boltik]

ситуация такова:
нужно в самые кратчайшие сроки решить протецкую задачку.
есть только в паскале, но мне нужен делфи. прошу стого не судить, тк в делфи совсем не ориентируюсь(

вот сама задачка: дано натуральное число n. выяснить, входит ли цифра 3 в запись числа n^2. число вводится из программы( через диалоговый интерфейс)

она же в паскале:

Код:

function F(n:integer):boolean;
var
temp:integer;
begin
temp:=n;
while temp <> 0 do
begin
if temp mod 10 = 3 then
begin
F:=true;
exit
end;
temp:=temp div 10
end;
F:=false
end;
var
n:integer;
begin
ReadLn(n);
if F(sqr(n)) then
WriteLn('1')
else
WriteLn('0');
ReadLn
end.

нужно содержание файлика .dpr

[lmikle]

Создаешь новый проект.
На форму кидаешь Edit и Button.
Щелкаешь на кнопке и в обработчике пишешь код:

Код:

procedure TForm1.Button1Click(Sender : Tobject);

  function IsNumberConain(Nmb : Integer; Dig : Char) : Boolean;
  begin
    Result := Pos(Dig,IntToStr(sqr(Nmb))) > 0;
  end;

begin
   If  IsNumberConain(StrToInt(Edit1.Text),'3')
      Then ShowMessage('Входит')
      Else  ShowMessage('Невходит');
end;

Естественно, тут проверок на корректность данных нет.