Mirsaid Aripov, Nurillo Otaxanov

Yechish g’oyasi. Bu sonni tub deb faraz qilinadi va dastur yakunida uning o`rinli yoki o`rinli emasligi aniqlanadi. Buning uchun har qanday natural soni [2, ] oraliqda 1 dan farqli bo`luvchilarga ega ekanligini bilgan holda, N sonining shu intervaldagi barcha k butun sonlarga bo`linish yoki bo’linmasligi aniqlanadi. Agar bo`linsa, u tub emas, ya`ni faraz noto`g’ri, bo’linmaydigan bo’lsa, faraz o’z kuchini saqlaydi. Tekshirish to k bo`luvchi [ ] sonidan katta bo`lib qolguncha yoki qilingan faraz buzilguncha etadi. Bu masalaning dasturi quyidagicha yoziladi.

4.9-listing.

procedure TForm1.Button1Click(Sender: TObject);

var n, m, k: integer;

y: string;

begin

n : strtoint(edit1.Text);

y : 'tub';

m : trunc(sqrt(n));

k : 1;

while (k < m) and (y  'tub') do

begin

k : k 1;

if n mod k  0 then y : 'tub emas';

end;

label2.caption : 'Berilgan son ' edit1.text #13 ' '  y;

end;