Bài 1:
Program BTT;
Uses crt;
Var r,s,p: real;
Const Pi=3.14;
Begin
Clrscr;
Write('Nhap r: '); Readln(r);
p:=2*r*pi;
s:=sqr(r)*pi;
Write('Dien tich la ',s:0:2,' va chu vi la ',p:0:2);
Readln
End.
Bài 2:
Program BTT;
Uses crt;
Var a,s,p: real;
Begin
Clrscr;
Write('Nhap a: '); Readln(a);
p:=a*4;
s:=sqr(a);
Write('Dien tich la ',s:0:2,' va chu vi la ',p:0:2);
Readln
End.
Bài 3: Sau khi nhập xong chương trình, bấm Ctrl + F9 để ra màn hình đen
Hãy giúp mọi người biết câu trả lời này thế nào?
5
[external_link offset=2]1 vote