Question

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 .

Answer 1

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.