Viết chương trình KT15.PAS, yêu cầu nhập từ bàn phím bán kính hình tròn ( biến r). Tính và in ra màn hình chu vi, diện tích hình chữ nhật có chiều dài là chu vi hình tròn, và chiều rộng là 1/3 chu vi hình tròn. Biết pi=3.14 *

1 câu trả lời

Program dientich;
Uses crt;
Const pi = 3.14;
Var r, b, a, S, C : real;
Begin
Clrscr;
Write('Nhap ban kinh r: ');
Readln(r);
a := 2 *pi*r;
b := a/3;
S := a * b;
C := (a + b)*2;
Writeln(' dien tich hinh chu nhat la :', S:8:2);
Writeln(' chu vi hinh chu nhat la :', C:8:2);
Readln
End.