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.