Nhập vào bán kính hình tròn in ra diện tích và chu vi của nó

2 câu trả lời

Program NN;
Uses crt;
Const pi=3.14;
Var r,p,s: extended;
Begin
        Clrscr;
        Write('Nhap r: '); Readln(r);
        s:=r*r*pi;
        p:=2*r*pi;
        Writeln('S = ',s:0:2);
        Writeln('P = ',p:0:2);
        Readln
End.

uses crt;
var r:real;
begin
clrscr;
   write('r=');readln(r);
   writeln('Dien tich: ',r*r*pi);
   writeln('Chu vi: ',r*2*pi);
readln;
end.

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