Write(‘Yashna, ‘); write(‘gulla ‘); write


Download 12.11 Kb.
Sana26.11.2020
Hajmi12.11 Kb.

4–misol.

begin


write(‘Yashna, ‘); write(‘gulla ‘);

write(‘ona Vatanim!‘);

end.
5–misol.

begin


writeln(‘Yashna, ‘); writeln(‘gulla ‘);

write(‘ona Vatanim!‘);

end.


7–misol.

var a,b : real;

Begin a:=3.24; b:=5;

writeln(‘a=‘,a); writeln(‘b=‘,b);

end.


8–misol.

var a,b : real;

Begin a:=3.24; b:=5.3;

writeln(‘a=‘, a:6:2); writeln(‘b=‘,b:1:0);

end.


3–misol.

Var a,b,g,m:Integer;

Begin

Read(a, b);

Read(g); m:=a+g+b;

WriteLn(‘Natija= ‘, m);

End.

var a,b,c: integer;

p,s: real;

begin

write(uchburchak tomonlari uzunliklarini kiriting: a,b,c=); readln(a,b,c);



p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln(‘S=’,s); readln;

end.
var a,b:Integer; s:Real;

Begin a:=4;

a:=sqr(a); b:=b–a;

s:=2*a+3*b;

WriteLn(‘S= ‘,s);

End.


Program Taqqoslash;

Var a:Real;

Begin Write(‘Ixtiyoriy son kiriting: ‘); ReadLn(a);

If a>25 Then WriteLn(‘Katta‘)

Else WriteLn(‘Katta emas‘);

End.
Var a:Integer; b:String; {Bitta satrda bir nechta o‘zgaruvchini tavsiflash mumkin}



Begin

Write(‘Ixtiyoriy son kiriting: ‘); ReadLn(a);



If a<0 Then b:= ‘manfiy‘ Else If a>0 Then b:= ‘musbat‘ Else b:= ‘nol‘;

WriteLn(b); End.
Download 12.11 Kb.

Do'stlaringiz bilan baham:




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