Lập chương trình tính diên tích hình tròn biết bán kính r lá số nguyên. S= π r2

2 câu trả lời

Program bai_tap;

Uses crt;

Const pi = 3.14;

Var r: integer;

       S: real;

Begin 

Writeln ('Nhap ban kinh r='); 

Readln (r);

S:= pi*r*r;

Writeln ('Dien tich hinh tron la:', S:8:2);

Readln 

End.

Uses crt;
Var r, s: real;
Const pi=3.14;
Begin
Clrscr;
Write('Nhap ban kinh, r = '); readln(r);
s:=pi*sqr(r);
Writeln('Dien tich hinh tron la: ',s:4:2);
Readln
end.

Câu hỏi trong lớp Xem thêm