Viết chương trình tính diện tích hình tròn (Pi,R,S)
2 câu trả lời
Program Dien_tich_hinh_tron;
Uses crt;
var r:byte;
s:integer;
const pi=3,14;
Begin
writeln('Nhap ban kinh hinh tron');
readln(r);
s:=r*r*pi;
writeln('Dien tich hinh tron la',s);
Readln;
End.
program dientichhinhtron;
uses crt;
var r,s:real;
const Pi=3,14;
Begin
clrscr;
writeln('Nhap r: ');
readln(r);
s:=r*r*Pi;
writeln('dien tich hinh tron la: ',s:8:3,'m2);
readln;
End.