Var a,b,c: Real; D: Real

StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
r:array of integer;
i:Integer;
begin
ListBox1.Items.Clear;
SetLength(r,10);
for i:=0 to High(r) do
begin
r[i]:=i*i;
ListBox1.Items.Add(IntToStr(i)+' ni kvadrati ='+IntToStr(r[i]));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
type
TDynArr=array of integer;
var
r:TDynArr;
i:Integer;
begin
ListBox1.Items.Clear;
SetLength(r,10);
for i:=0 to High(r) do
r[i]:=i*i;
SetLength(r,20);
for i:=10 to High(r) do
r[i]:=i*i;
for i:=0 to High(r) do
ListBox1.Items.Add(IntToStr(i)+' ni kvadrati ='+IntToStr(r[i]));
end;
end.

Izoh. Hosil bo‘lgan oynadagi birinchi bosqich tugmachasini tanlasangiz 1 dan 10 gacha ketma-ket kelgan natural sonlarning kvadratlarini jadval shaklda chiqaradi. Agar ikkinchi bosqich tugmachasini tanlasangiz 10 dan 20 gacha ketma-ket kelgan natural sonlarning kvadratlarini jadval shaklda chiqaradi.
Mustaqil bajarish uchun mashqlar
1. 1 dan 100 gacha bo‘lgan sonlarning yig‘indisini toping.
2. 1 dan 50 gacha bo‘lgan sonlarning ko‘paytmasini toping.
3. Raqamlari yig‘indisining kubiga teng bo‘lgan barcha uch xonali sonlarni toping.
4. 2,3,4,5,6,7,8,9 sonlariga ko‘paytirilganda raqmlarining yig‘indisi o‘zgamaydigan ikki xonali sonlarni toping.
5. Raqamlari yig‘indisi berilgan butun songa teng uch xonali barcha sonlarni toping.
6. Barcha shunday uch xonali sonlarni topingki, ularni kvadratga ko‘targanda uchata raqami bir xil bo‘lsin, nol bundan mustasno.
7. Do‘konda 16 kgli, 17 kgli va 21 kgli pol buyoqlari yashiklarda mavjud. Ularni ochib ko‘rmasdan 185 kg pol buyoq tanlang. Barcha variantlarni ko‘rib chiqing.
8. 42*4* yulduzchalar o‘rniga shunday raqamlarni tanlang, hosil bo‘lgan besh xonali son 72ga bo‘linsin.
9. O‘zi va raqamlari yig‘indisi 7ga karrali uch xonali sonlarni toping.
10. Shunday to‘rt xonali sonlarni topingki, 133ga bo‘lganda qoldiq 125ga va 134ga bo‘lganda qoldiq 111ga teng bo‘lsin.
11. Raqamlari yig‘indisi berilgan butun songa teng to‘rt xonali barcha sonlarni toping.
12. O‘zi va raqamlari yig‘indisi 11ga karrali to‘rt xonali sonlarni toping.
13. 42*4* yulduzchalar o‘rniga shunday raqamlarni tanlang, hosil bo‘lgan olti
xonali son 11ga bo‘linsin.
14. Berilgan natural l0 sonni bo‘luvchilari yig‘indisini toping.
15. Berilgan N sonidan oshmaydigan barcha pifagor natural sonnlarni toping.
(Agar berigan uch xonali sonning dastlabki ikkita raqami yig‘indisining kvadrati
uchinchi raqamiga teng bo‘lsa, bunday natural son pifagor soni deb ataladi)
16. Birinchi ikkita raqamlari yig‘indisi oxirgi ikkita raqamlari yig‘indisiga teng
bo‘lgan barcha to‘rt xonali sonlarni toping.