Nom kiritish bosManishini

I usul
II usul
Program Uchburchak_yuzi; Var a,b,c:Integer; {uchburchak tomonlari} yp,s:Real; {yp-yarim perimetr, s-yuza} Begin a:=3; b:=4; c:=5; yp:=(a+b+c)/2; s:=sqrt(yp*(yp-a)*(yp-b)*(yp-c)); ■ WriteLn('S= ',s,' kvadrat birlik'); Readln; End.	Program Uchburchak_yuzi; Var a,b,c:Integer; {uchburchaktomonlari} yp,s:Real; {yp-yarim perimetr, s-yuza} Begin Write('a,b,c ning qiymatlari kiritilsin '); ReadLn(a,b,c); yp:=(a+b+c)/2; . s:=sqrt(yp*(yp-a)*(yp-b)*(yp-c)); WriteLn('S=',s:2:2,' kvadrat birlik'); readln; End.
S = 6.0000000000E+00 kvadrat birlik	a,b,c ning qiymatlari kiritilsin 3 4 5 S = 6.00 kvadrat birlik

3- misol. Tomonlari R bo'lgan teng tomonli uchburchak, kvadrat va radiusi R ga teng doiraning yuzini hisoblash dasturini tuzing va R= 4 da hisoblang.

Dasturi