Lakers

Тайские таблетки для похудания - заведи себе паразита. Декларация независимости

4. 2/3*Х*У

ушные тампоны - услышь меня Англо-Русский словарь

орехи =) - самые веселые орехи в мире! библия

ну ето даже программированием сложно назвать... юзай учебники по геометрии за 9-10 класс.

кусочек котлетки - не будь голодным. Добавлено спустя 36 секунд: Мумия фараона

точно точно=)

наушники - не мешай другим. "доктор бром" (лекарство)

а.не,я разобрался почему. это иззи того что функцию void MyClick(TObject *Sender) надо было описать как void __fastcall TForm1::MyClick(TObject *Sender) и ещё присвоение надо было выполнять в дружественной классу TForm функции описывать.

к примеру я делаю так: void MyClick(TObject *Sender) {//тут обрабатываю сендер }; TButton *p=new TButtop(Form1); //забиваю параметры разные парентсов и т.д. //и тут навешиваю: p->OnClick=MyClick(); если так то я пробовалю,ошибка при присвоении. MyClick неправильно описываю.а как не знаю=(

вопрос. я пораждаю динамически кнопки в C++ Builder, как обработать нажатие на них?

помада гигеническая - скажи обветренным губам прощай. лада калина

r._15 лови. uses crt; var i:integer; begin clrscr; for i:=10 to 99 do if (i mod 9 =0)and((i div 10)+(i mod 10)=9) then write(i,' '); readkey; end. uses crt; var i,q:longint; function sum(i:integer):integer; var s:integer; begin s:=0; while i>0 do begin s:=s+i mod 10; i:=i div 10; end; sum:=s; end; begin clrscr; for i:=1 to 2000 do begin if i=sum(i*i*i) then writeln(i,' ',i*i*i); end; readkey; end. uses crt; var i:integer; begin clrscr; for i:=1 to 100 do write(i*i,' '); readkey; end.

Dante93 uses crt; var r,q,x:real; i,j,n:integer; begin clrscr; n:=10;{чем больше n тем выше точность} x:=0; for j:=1 to n do begin r:=sin(x)-4*x+cos(2*x); q:=cos(x)-4-2*sin(2*x); {производная функции} x:=x-r/q; end; writeln(x:0:5); readkey; end.

Если Вам нужна звуко, термоизоляция используите пено пласт. нефть

martinges так и есть)

Надоело цепляться проводом за клаву? купи без проводную мышь а вось поможет. фен

X-ray program kursa4; uses crt; var a,q1,q2:array[1..1000]of integer; n,i,V1,V2,r1,r2,k:integer; procedure Qsort(q,p:integer); var x,l,r,w:integer; begin r:=p; l:=q; x:=a[(l+r)div 2]; while l while a[l]>x do l:=l+1; while a[r] if l<=r then begin w:=a[l]; a[l]:=a[r]; a[r]:=w; l:=l+1; r:=r-1; end; end; if l if r>q then Qsort(q,r); end; procedure vvod; begin assign(input,'kursa.txt'); reset(input); readLn(n); for i:=1 to n do read(a); end; begin assign(output,'kursa_OUT.txt'); rewrite(output); vvod; Qsort(1,n); v1:=0; v2:=0; k:=1; while k<=n do begin if v1>v2 then begin r2:=r2+1; q2[r2]:=a[k]; v2:=v2+a[k]; end else begin r1:=r1+1; q1[r1]:=a[k]; v1:=v1+a[k]; end; k:=k+1; end; write('VES1=',v1,' I: '); for i:=1 to r1 do write(q1,' '); writeln; write('VES2=',v2,' II: '); for i:=1 to r2 do write(q2,' '); end. там файл создаш с именем "kursa.txt" туда запишеш: 14 9 1 8 4 2 5 2 5 4 7 3 7 11 13 (конечно можеш и другое записать) 300 рублей с тебя=)

подшибник с очками и в шляпе

Вам нужен такой предмет который помогбы избавиться от улик, место на которам не скушно провести время с газетой, бедонная емкость готовая принять все ваши излияния после бурной вечеринки? Унитаз подойдёт как низзя лучше. чеснока давилка

Лучший друг шпионов. Лапша "Ролтон"

Будь в центре событий - залати, соверши, и мы о тебе напишем! АЭС (атомная электро станция)

Хочешь стереть мир с лица земли? Начать жизнь с чистого лица? Убрать темные пятна своей биографии? Ничто больше не сможет этого сделать кроме нашей резинки! всего 9р. 99коп. Next участок на луне

X-ray вот тут в обсудить смотри... http://acm.timus.ru/problem.aspx?space=1&num=1005 (внешка)

в игре все норм.а принскрин сделал так получилось,не знаю почему.