15-04-2018, 05:34 PM
كود :
procedure TForm1.Button1Click(Sender: TObject);
var a :integer;
begin
a:=strtoint(inputbox('a','a','0'));
messagebox(inttostr(a*a));
end;|
أين الخطأ 3
|
|
|
| الردود في هذا الموضوع |
|
أين الخطأ 3 - بواسطة chamsderreche - 14-04-2018, 02:44 PM
RE: أين الخطأ 3 - بواسطة محمد الدرة - 15-04-2018, 05:34 PM
RE: أين الخطأ 3 - بواسطة chamsderreche - 15-04-2018, 07:24 PM
RE: أين الخطأ 3 - بواسطة rahiche - 15-04-2018, 08:25 PM
RE: أين الخطأ 3 - بواسطة chamsderreche - 16-04-2018, 10:48 PM
RE: أين الخطأ 3 - بواسطة youryour - 16-06-2023, 11:09 AM
|
يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم