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.
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b=');c readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
kt:=0;
if sqr(a)=sqr(b)+sqr(c) then kt:=1;
if sqr(b)=sqr(a)+sqr(c) then kt:=1;
if sqr(c)=sqr(a)+sqr(b) then kt:=1;
if kt=0 then writeln('Day khong la tam giac vuong')
else begin
writeln('Day la ba canh trong mot tam giac vuong');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich tam giac vuong la: ',s:4:2);
end;
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
a: Thuật toán thực hiện công việc tính tổng các số dương trong dãy n số nguyên
#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;
}
Program tinh;
Uses crt;
Var
a,b,tong,hieu:Integer;
Begin
If a>=b then ( neu a lon hon hoac bang b thi thong bao );
Write('nhap so a la');readln(a)
Write('nhap so b la');readln(b)
tong:=a+b
hieu:a-b
Writeln('tong hai so la',tong);
Writeln('hieu hai so la';hieu);
Readln;
End.
a = int(input("Nhập chiều dài: "))
b = int(input("Nhập chiều rộng: "))
chu_vi = 2*(a+b)
dien_tich = a*b
print(f"Chu vi hình chữ nhật là: {chu_vi}")
print(f"Diện tích hình chữ nhật là: {dien_tich}")
Program So_nguyen;
uses crt;
Var a,b,t:integer;
Begin
clrscr;
Writeln(' Nhap 2 so nguyen a va b:');
if a>b then t:= a-b;
if a<b then t:=b-a;
if a=b then t:=0;
Writeln(' Ket qua la',t);
Readln;
End.