Đáp án A

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

Chọn B

#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}")