All pastes #29946 Raw Edit

Unnamed

public text v1 · immutable
#29946 ·published 2005-11-21 12:51 UTC
rendered paste body
void __fastcall TForm1::Button1Click(TObject *Sender)
{
bool Pirminis (int skaicius)
{
if (skaicius <= 0) return false;
int n = 0;
for (int x = 0; x < skaicius; x++)
{
if (skaicius % (x + 1) == 0)
n++;
}
return (n < 3);
}
Button1->Enabled = false;
Button2->Enabled = true;
Button3->Enabled = true;
}
Memo1->Enabled = true;
}