Recent Content by fushiko

компилятор прочал все, но при нажатии на бутон ошибку выдал. value assignet to 'iCound' never used

ошибку пишет про ICOUNT

не получается

это я все знаю. Мне же вывести результаты надо. А как там не написано.

procedure TForm1.BitBtn1Click(Sender: TObject); type mnoshestwo = set of 1..255; var m1:mnoshestwo; m2:mnoshestwo; m3:boolean; e,r,i:word;...

а как тогда выполнить задание, продемонстрировать 5 операций над множествами??

множества Подскажите как множество вывести на мемо???? вывести на печать! Не получается ((

что?

not allowed before 'ELSE' Вот так пишет procedure TfmExemple.BitBtn1Click(Sender: TObject); var y:integer; begin if edInput.Text = ''...

почемуто не работает

Подскажите что не так procedure TfmExemple.FormActivate(Sender: TObject); begin x:=random(1001); edInput.SetFocus; caption:='угадай целое...