2 câu trả lời
Program bai_tap;
Uses crt;
Var S, Cv, R: real;
Begin
Writeln ('Nhap ban kinh R=');
Readln (R);
Cv:= 2*R*3.14;
S:= R*R*3.14;
Writeln ('Chu vi hinh tron la:', Cv:7:2);
Writeln ('Dien tich hinh tron la:', S:7:2);
Readln
End.
uses crt;
var r: real;
begin
clrscr;
write('Nhap r = '); readln(r);
writeln('Chu vi hinh tron la: ', 2*r*pi);
writeln('Dien tich hinh tron la: ', r*r*pi);
readln
end.
Câu hỏi trong lớp
Xem thêm
