PK
0
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
81
1
3 tháng 12 2021
uses crt;
begin
clrscr;
writeln(5*2*pi:4:2);
writeln(5*5*pi:4:2);
readln;
end.
NT
1
28 tháng 3 2021
Program Hinh_Tamgiac_Program;
Uses crt;
Var a,b,c,s,p : real;
Begin
Clrscr;
Writeln(‘HINH TAM GIAC:’);
Write(‘nhap a =’);readln(a);
Write (‘nhap b =’);readln(b); Write(‘nhap c =’);readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(‘Chu vi tam giac:’,2*p:4:2) ; Writeln(‘Dien tich tam giac:’,s:4:2);
End
Else
Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac’) ;
Readln;
End.
KV
15 tháng 5 2023
Var r,s,c:real;
Begin
Write('Ban kinh = ');readln(r);
s:=3.14*r*r;
c:=2*3.14*r;
Writeln('Dien tich la ',s:10:2);
Write('Chu vi la ',c:10:2);
Readln
End.
27 tháng 12 2021
uses crt;
var a:integer;
begin
clrscr;
readln(a);
writeln(a*4);
writeln(a*a);
readln;
end.
16 tháng 11 2021
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(2*(a+b):4:2);
writeln(a*b:4:2);
readln;
end.
16 tháng 11 2021
Program Chu_nhat; uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S:3:2);
Writeln('Chu vi hinh chu nhat la:',CV:3:2);
readln;
end.
30 tháng 12 2021
2:
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writen(a*b);
readln;
end.
30 tháng 12 2021
2:
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writen(a*b);
readln;
end.
LN
29 tháng 11 2021
program chuvi_dientich_hinhtron;
uses crt;
const pi = 3.14;
var R: integer;
cv, dt: real;
begin
clrscr;
writeln; { xuong dong }
readln ( R );
cv:= 2*R*pi;
writeln ( ' chu vi = ' , cv : 8:2 );
dt:=R*R*pi;
writeln ( 'dien tich = ', dt :8:2 );
readln;
end.
Chúc bạn học tốt