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.
Tham khảo
program hcn;
uses crt;
var d,r,dt:longint;
cv:real;
begin
write('nhap chieu dai va chieu rong cua hcn:');
readln(d,r);
cv:=(d+r)*2;
dt:=d*r;
writeln(' chu vi hcn do la:',cv);
writeln(' dien tich hcn do la:',dt);
readln
end.
var a,b,s:integer;
c:word;
begin
write('nhap avà b ');
read(a,b);
s:=a*b*1/2;
c:=(a+b)*2;
writeln('dien tich la '; s );
write('chu vi la 'c);
readln
end
program CVDT;
uses crt;
var a,b,c,P,S;
begin
Writeln('Nhap a va b');
Readln(a,b);
c:= a*a +b*b; S:= (a*b)/2;
Writeln('Dien tich tam giac vuong la ',S);
writeln('Chu vi tam giac vuong la ', SQRT(c);
Readln;
end.
2:
#include <bits/stdc++.h>
using namespace std;
double a,b,c,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(2)<<s;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
double a;
int main()
{
cin>>a;
cout<<fixed<<setprecision(2)<<a*a;
return 0;
}
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s:4:2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
double a,b,cv,dt;
int main()
{
cin>>a>>b;
cv=(a+b)*2;
dt=a*b;
cout<<fixed<<setprecision(2)<<cv<<endl;
cout<<fixed<<setprecision(2)<<dt;
return 0;
}
Program HOC24;
var a:integer;
begin
write('Nhap a: '); readln(a);
writeln('Chu vi hinh vuong la: ',a*4);
write('Dien tich hinh vuong la: ',a*a);
readln
end.