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

procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const n=100000;
var
k,m,l, i:integer;
a:array[1..n] of integer;
begin
m:=strtoint(edit1.Text);
l:=strtoint(edit2.Text);
for i:= 2 to n do
a[i]:=i;
for i:=1 to n do
for k:=2 to trunc(sqrt(i)) do
if (a[i]/k-trunc(a[i]/k))=0 then a[i]:=0;
for i:=m to l do
if a[i]<>0 then
Memo1.Lines.add('Tub son='+inttostr(a[i]));
end;
end.

Izoh: Hosil bo‘lgan daturda siz tub sonlar jadvalini chiqarishinchiz mumkin. Buning uchun siz sonlar oralig‘ini ko‘rsatishingiz kifoya.
Mustaqil bajarish uchun mashqlar
ni hisoblang. ni hisoblang ni hisoblang
4. A 1 0 vektor elementlarining yig‘indisini va o‘rta arifmetigini hisoblash
dasturini toping.
5. A 1 0 vektor elementlarining ko‘paytmasining va o‘rta geometrigini hisoblash dasturini toping.
6. A 1 0 vektor elementlarini eng kichigini topish dasturini tuzing.
7. A 1 0 vektor elementlarini eng kattasini topish dasturini tuzing.
8. A 5 vektor elementlarini o‘sib borish tartibida joylashtiring.
9. A 5 vektor elementlarini kamayib borish tartibida joylashtiring.
10. Uchunchi tartibli kvadrat matritsaning teskarisini topish dasturini tuzing
11. Ikkinchi tartibli determinantni hisoblash dasturini tuzing
12. To‘rtinchi tartibli determinantni hisoblash dasturini tuzing
13. A va B vektorlarning elementlari butun sonlarda iborat. A vektorning toq
elementlardan tashkil topgan, lekin B vektorning elementi bo‘lmagan C vektorni hosil qiling.
14. X vektor berilgan. Vektor elementlarining tartibini buzmasdan, yangi massiv kiritmasdan, faqat nolga teng bo‘lgan elementlarni massivning oxiriga joylashtiring.
15. A va B vektorlar berilgan. C vektorni shunday tashkil qiling, unung elementlari A da ham, B da ham mavjud bo‘lsin.
16. A ( N , N ) martitsaning p va q tartib raqamli satrlari o‘rnini almashritiring.
17. X ( K , L ) matritsaning eng katta va eng kichik elementlari o‘rnini
almashtiring.
18. A (3,4 ) matritsaning satr elementlari ko‘paytmasidan B massivni hosil qiling.
19. Z (3,4 ) matritsaning har bir ustunidagi manfiy elementlar sonidan tashkil topgan M vektorni hosil qiling.
20. A (M , N ) matritsa berilgan. Har bir satrdagi eng kichik elementlar orasidan eng kattasini va u joylashgan tartib raqamini aniqlang.
21. Diagonal elementlaridan tashqari barchga elementlari nolga teng bo‘lgan
C (M , M ) matritsa tashkil eting.
22. K (3,4 ) matritsaning musbat elementlaridan tashkil topgan L vektorni hosil
qiling.
23. A (10 ,15 ) matritsaning har bir ustunindagi musbat elementlarining sonini va
yig‘ingisini eslab qoluvchi va hisoblovchi dastur tuzing. Natija ikkita satr ko‘rinishida chop etilsin. a_ij 0 .
24. N (8 ,6 ) matritsaning har bir satridagi manfiy elementlar sonini va ularning yig‘indisini aniqlovchi va bu yig‘indini massiv ko‘rinishda chop etuvchi dastur tuzing.
25. S (10 ,20 ) matritsaning eng katta elementini toping va matritsaning har bir
elementini unga bo‘lib, hosil bo‘lgan matritsani chop etish dasturini tuzing.