Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
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?
Bài 1:
Program hinh_tron;
Uses crt;
Var r:real;
Begin
clrscr;
Write('Nhap ban kinh:'); readln(r);
Writeln('Chu vi hinh tron la:',2*pi*r:10:2);
Writeln('Dien tich hinh tron la:',pi*r*r:10:2);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
23
18
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 Rút gọnBà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:... xem thêm
Bảng tin