Bilet ¹9, savol ¹3
procedure TForm1.Button1Click(Sender: TObject);
var a,b,p:integer; begin
a:=strtoint(edit1.Text); b:=strtoint(edit2.Text); p:=2*(a+b);
label3.Caption:='p='+floattostr(p); end;
Fan:
Informatika fanidan imtixon savollariga javoblar 10 sinf
Bilet: ¹9
"sor-soch.com" © 2024 - Maktab o'quvchilari, abituriyentlar, talabalar va o'qituvchilar uchun ma'lumot portali