1. Nhập vào 3 số tự nhiên
a)In ra các số theo thứ tự tăng dần.
b)Hỏi dãy số trên có số nào là trung bình cộng của 2 số còn lại không nếu có in ra số đó, nếu không in ra "No".
c)Kiểm tra 3 số nhập đó có phải là 3 cạnh của tam giác vuông không nếu đúng in ra kích thước cạnh huyền.Nếu không in ra "No".
Câu 2.
Nhập vào số a in ra giá trị của x: biết |x-a|=2a-1
Câu 3.Tính giá trị của biểu thức với n là (nhập số từ bàn phím)
\(A=\frac{1}{1.3}+\frac{1}{3.5}+...+\frac{1}{n\left(n+2\right)}\) ( với n lẻ, N<\(10^5\))
Câu 4. Nhập vào số tự nhiên a,b,c. Tìm giá trị nhỏ nhất chia a,b,c cùng dư 1.
Câu 5. Một xe ô tô đi với vận tốc A (km/h) từ A đến B. Sau đó đi về với vận tốc B (km/h). Quãng đường AB là n (km)
a) Hãy nhập a,b,n từ bàn phím tìm tổng thời gian cả đi và về, kết quả làm tròn 2 chữ số thập phân.
b) Nếu ô tô giữ nguyên vận tốc đi và về mà tổng thời gian đi về là t (h) được nhập hãy in ra giá trị của n
Câu 6. Nhập 3 góc của tam giác a,b,c của 1 tam giác. Sao cho a=2b;b=a-c
a) Hãy in các góc của tam giác trên theo thứ tự giảm dần
b) Hỏi tam giác đó có mấy góc lớn hơn 600.
Ai giải giúp em được không ạ !!!
EM cảm ơn~~
câu 1
uses crt;
var a,b,c,kt,kt1:integer;
tbc1,tbc2,tbc3:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
{-------------------------------cau-a----------------------}
if (a>b) and (a>c) then
begin
write(a,' ');
if b>c then write(b,' ',c);
if b<c then write(c,' ',b);
end;
if (b>a) and (b>c) then
begin
write(b,' ');
if a>c then write(a,' ',c);
if a<c then write(c,' ',a);
end;
if (c>a) and (c>b) then
begin
write(c,' ');
if a>b then write(a,' ',b);
if a<b then write(b,' ',a);
end;
{--------------------------cau-b-------------------------}
writeln;
kt:=0;
tbc1:=(a+b)/2;
tbc2:=(b+c)/2;
tbc3:=(c+a)/2;
if tbc1=c then
begin
kt:=1;
writeln(c);
end;
if tbc2=a then
begin
kt:=1;
writeln(a);
end;
if tbc3=b then
begin
kt:=1;
writeln(b);
end;
if kt=0 then writeln('NO');
{--------------------cau-c-------------------------------}
writeln;
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
kt1:=0;
if sqr(c)=sqr(a)+sqr(b) then
begin
kt1:=1;
writeln(c);
end;
if sqr(a)=sqr(b)+sqr(c) then
begin
kt1:=1;
writeln(a);
end;
if sqr(b)=sqr(a)+sqr(c) then
begin
kt1:=1;
writeln(b);
end;
if kt1=0 then writeln('NO');
end
else writeln('day khong phai la 3 canh trong 1 tam giac');
readln;
end.