I bosqich I variant masala

2. Birdan M gacha bo’lgan mukkammal sonlarni topish.
uses crt;

var

m,i,s,j:longint;

begin

clrscr;

write (‘m ni kiriting=’); readln(m);

for i:=3 to m do

begin

s:=0;

for j:=2 to i do

if i/j=trunc(i/j) then s:=s+trunc(i/j);

if i=s then write(i,' ');

end;

readln

end.
3. Ixtiyoriy a,b,c lar uchun berilgan kvadrat tenglamani echish.

Program Kvadrat_tenglama;

Var a,b,c:Integer;

D,x1,x2:real;

begin

write('a ni kirit='); readln(a);

write('b ni kirit='); readln(b);

write('c ni kirit='); readln(c);

D:=(b*b-4*a*c);

if D<0 then writeln('Yechi yo`q') else

begin

x1:=(-b+sqr(D))/2;

x2:=(-b-sqr(D))/2;

if D>0 then writeln('x1=',x1:2:0);

writeln('x2=',x2:2:0);

end;

readln;

end.

4.Muntazam uchburchak yuzi.
uses crt;

Var X,S:Real;

begin

Write('Tomonini kiriting='); Readln(x);

S:=sqrt(3)*sqr(x)/4;

Writeln('Yuzi S=', S:2:4);

Readln;

End.

5. 1 dan N gach sonlarning yig’indisini topish dasturi.

uses crt;

var i,n,S:longint;

begin

write('N ni kiriting ='); read(n);

for i:=1 to n do

S:=S+i;

writeln('S=',S);

read(n);

readln

end.