Bilet №21, savol №3
Bitta edit, 2ta label va 1ta button o‟rnatib, buttonning prosedurasiga quyidagini yozamiz:
procedure TForm1.Button1Click(Sender: TObject);
var a:integer; begin
a:=strtoint(edit1.Text); if a mod 2=0 then
label2.Caption:='Juft‟ else label2.Caption:='Toq‟; end;
Fan:
Informatika fanidan imtixon savollariga javoblar 10 sinf
Bilet: №21
"sor-soch.com" © 2024 - Maktab o'quvchilari, abituriyentlar, talabalar va o'qituvchilar uchun ma'lumot portali