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.
câu 2:
uses crt;
var a,x1,x2:integer;
begin
clrscr;
write('a='); readln(a);
x1:=0-(-a-2*a+1);
writeln('gia tri dau tien cua x la: ',x1);
x2:=-(0-a+2*a-1);
writeln('gia tri thu 2 cua x la: ',x2);
readln;
end.
câu 3
uses crt;
var n:longint;
i:integer;
t:real;
begin
clrscr;
repeat
write('nhap n: '); readln(n);
if (n mod 2=0) or (n>=100000) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (n mod 2=1) and (n<100000);
t:=0;
for i:=1 to n do
t:=t+1/(i*(i+2));
writeln('tong la: ',t:4:2);
readln;
end.
Câu 4:
Program hotrotinhoc;
var i,a,b,c: integer;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
i:=1;
while i<=32000 do
begin
i:=i+1;
if (i mod a=1) and (i mod b=1) and (i mod c=1) then
begin
write(i);
break;
end;
end;
readln
end.
Câu 5:Em nên viết rõ a,b là gì.Theo đề của em a là vận tốc đi, b là vận tốc về đúng không nhỉ?
Câu 6:
Program hotrotinhoc;
var tg,j,i,a,b,c,d: integer;
t: array[1..3] of integer;
begin
write('Nhap goc a='); readln(a);
write('Nhap goc b='); readln(b);
write('Nhap goc c='); readln(c);
t[1]:=a; t[2]:=b; t[3]:=c;
if (a=(2*b)) and (b=(a-c)) then
begin
for i:=1 to 3 do
for j:=i to 3 do
if t[i]<t[j] then
begin
tg:=t[i];
t[i]:=t[j];
t[j]:=tg;
end;
writeln('Sap xep thu tu giam dan cac goc cua tam giac :');
for i:=1 to 3 do
begin
if t[i]>600 then inc(d);write(t[i],' ');
end;
writeln;
write('Tam giac do co ',d,' goc lon hon 600');
end;
readln
end
