Toshkent axborot texnologiyalari universiteti fargona filiali


Download 260.5 Kb.
bet6/6
Sana21.04.2023
Hajmi260.5 Kb.
#1373796
1   2   3   4   5   6
Bog'liq
734-20 D Xolmatov

Dastur
Program L24a; {Sonning bo’luvchilari. 2 -usul }
uses Crt;
var
n, d : integer;
begin
write('Butun sonni kiriting '); readln(n);
writeln(n, ‘sonining bo’luvchilari’);
d := 1;
while d*d < n do
begin
if n mod d=0 then write(d, ' ', n div d, ' ');
d := d + 1
end;
if d*d = n then write(d); writeln
end.
Topshiriqlar:
N natural son. Shu sonni bo’luvchilarini chiqaruvchi dastur tuzing? Masalan: 30 ning bo’luvchilari 1,2,3,5,6,10,15,3
Yechim:
let n = 30;
let bolens = [];
for (let i = 1; i <= n; i++) {
if (n % i == 0) {
bolens.push(i);
}
}
console.log(bolens);
Natijasi:



Download 260.5 Kb.

Do'stlaringiz bilan baham:
1   2   3   4   5   6




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling