Bài tập 4:

Program baitap;

Uses crt;

Var i,S:longint;

Begin

Clrscr;

S:=0; i:=0;

While S<=2500 do

Begin

i:=i+1;

S:=S+i;

End;

Writeln('Can cong ',i,' so tu nhien dau tien');

Readln

End.

Bài tập 5:

Program baitap;
Uses crt;
Var a,b,c:real;
Begin
Write('a,b,c:'); Readln(a,b,c);
If (a>0) and (b>0) and (c>0) then
If (a+b<=c) or (a+c<=b) or (b+c<=a) then Writeln('Khong phai tam giac')
Else 
Begin
Writeln('La tam giac');
If (a+b<=c) or (a+c<=b) or (b+c<=a) then Writeln('Khong phai tam giac')
Else If (a=b) or (a=c) or (c=b) then Write('Tam giac can')
Else writeln('Khong phai tam giac');
End;
Readln
End.

______________________________

Đã test code

Bài 4:

S=0

i=0

while S<=2500:

    i += 1

   S +=i

print("Can cong ",i," so tu nhien dau tien")

Bài 5:

s = 0
a = int(input("Nhập a= "))
b = int(input("Nhập b= "))
c = int(input("Nhập c= "))
if (a>0) and (b>0) and (c>0):
    if (a+b>c) and (a+c>b) and (b+c>a):
        print("a,b,c là 3 cạnh tam giác")
        if (a*a+b*b==c*c):
            print("tam giác abc vuông tại c")
            s=(a*b)/2
        elif (a*a+c*c==b*b):
            print("tam giác abc vuông tại b")
            s=(a*c)/2
        elif (b*b+c*c==a*a):
            print("tam giác abc vuông tại a")
            s=(b*c)/2
        elif (a=b) and (a=c):
            print("Tam giác abc cân tại a")
        elif (a=b) and (b=c):
            print("Tam giác abc cân tại b")
        elif (c=b) and (a=c):
            print("Tam giác abc cân tại c")
        else:
            print("tam giác abc không cân, vuông")
    else:
        print("a,b,c không là 3 cạnh tam giác")
else:
    print("a,b,c bé hơn 0")