Đăng nhập để hỏi chi tiết
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1458
1187
1.
uses crt;
var m,n:longint;
begin
clrscr;
readln(m,n);
writeln('Chu vi: ',(m+n)*2);
write('Dien tich: ',m*n);
readln;
end.
2.
uses crt;
var r:real;
const pi=3.14;
begin
clrscr;
readln(r);
writeln('Chu vi: ',r*2*3.14:0:2);
write('Dien tich: ',r*r*3.14:0:2);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin