Viết chương trình cho cc bi tốn sau
Bài 1:
Nhập bốn số a , b , c , d . Hãy tìm giá trị lớn nhất của chúng và gán giá trị lớn
nhất đó cho biến Max.
Bài 2: Nhập 3 số a , b , c bất kì . Hãy kiểm tra xem ba số đó có thể là độ dài ba
cạnh của một tam giác hay không ? Thông báo lên màn hình ‘ Thỏa mãn ‘, ‘
Không thỏa mãn trong từng trường hợp tương ứng.
B4
Lập trình tính tổng : A = 1 + 1/2 + 1/3 + … + 1/n ở đây n là số tự nhiên được
nhập vào từ bàn phím .
B5
Tính hàm lũy thừa a \(^n\) , ở đây a thực và n tự nhiên được nhập vào từ bàn phím .
Bài 1:
Program hotrotinhoc;
var a,b,c,d,max: integer;
begin
write('Nhap a,b,c,d :'); readln(a,b,c,d);
max:=0;
if a>max then max:=a;
if b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
write(max);
readln
end.
Bài 2:
Program hotrotinhoc;
var a,b,c : integer;
begin
write('Nhap 3 canh a,b,c'); readln(a,b,c);
if (a+b>c) or (a+c>b) or (b+c>a) then write('Thoa man') else ('Khong thoa man trong tung truong hop tuong ung');
readln
end.
Bài 4: Câu hỏi của Quỳnh Như - Tin học 8 | Học trực tuyến
Bài 5:
Program hotrotinhoc;
var a,n: integer;
t: longint;
begin
Write('Nhap a,n :'); readln(a,n);
t:=1;
for i:=1 to n do
t:=t*a;
write(t);
readln
end.
