[kate_miss]

+ еще надо сделать с помощью подпрограммы))))....вот что получилось...но не работает))))))

КОД UNIT

Код:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
n,i,l,k,f,m:word;

begin
n:=StrToInt(Edit1.Text);
Memo1.Lines.Add('число - '+Edit1.Text);
n:= sqr(n);
Memo1.Lines.Add('число n в квадрате (n2) = '+IntToStr(n));
for i:=1 to n do
myfunc(i,n,l,k,f,m);
if (k=3) or (m=3) or (l=3) or (f=3) then Memo1.Lines.Add('Число 3 входит в запись числа n2')
else Memo1.Lines.Add('Число 3 не входит в запись числа n2');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add('Лаб. раб №3 Шеметовец Е. гр.417329');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;

end.

КОД ПОДПРОГРАММЫ

Код:

unit proc;

interface
 function myfunc(i,n,l,k,f,m:word):word;

implementation
 function myfunc;
 begin
 l:=n div 100;
 f:=n mod 100;
 k:= n div 10;
 m:= n mod 10;
 end;

 end.

помогите кто чем может))))))......