Câu 1 :

uses crt;

var a, b, c : integer;

begin

clrscr;

write('nhap do dai canh a :');readln(a);

write('nhap do dai canh b :');readln(b);

write('nhap do dai canh c :');readln(c);

if (a + b > c) and (a + c > b) and (b + c > a) then

writeln('3 so la canh tam giac')

else writeln('3 so khong phai canh tam giac');

readln

end.

Câu 2 :

uses crt;

var a, b, c, cv, p, s : real;

begin

clrscr;

write('nhap do dai canh a :');readln(a);

write('nhap do dai canh b :');readln(b);

write('nhap do dai canh c :');readln(c);

cv := a + b + c;

p := cv/2;

s := sqrt(p * (p - a) * (p - b) * (p - c));

if (a + b > c) and (a + c > b) and (b + c > a) then

begin 

writeln('chu vi tam giac la :', cv:3:2);

writeln('dein tich tam giac la :', s :3:2);

end;

readln

end.

Câu 3 :

uses crt;

var n : integer;

begin

clrscr;

write('nhap so n :');readln(n);

if n mod 2 = 0 then writeln(n,' la so chan')

else writeln(n,' la so le');

readln

end.

Câu 4 : 

uses crt;

var b, c : integer;

begin

clrscr;

write('nhap so b :');readln(b);

write('nhap so c :');readln(c);

if (b = 0) and (c = 0) then writeln('phuong trinh vo so nghiem');

if (b = 0) and (c <> 0) then writeln('phuong trinh vo nghiem');

if b <> 0 then writeln('nghiem x = ', (-c/b):3:2);

readln

end.

Câu 1

a=float(input("Nhập vào cạnh a: "))
b=float(input("Nhập vào cạnh b: "))
c=float(input("Nhập vào cạnh c: "))

if (a*a==b*b+c*c)|(b*b==a*a+c*c)|(c*c==a*a+b*b):
       print("\nĐây là tam giác vuông")

else:
        print ("\nKhông Tạo Thành Tam Giác")

Câu 3:

n = int(input('nhập số n :'))
if (n % 2 == 0) : 
     print(n,'là số chẵn')
else :
     print(n,'là số lẻ')

Câu 4:

import math
b = float(input("Nhập Hệ Số b: "))
c = float(input("Nhập Hệ Số c: "))
delta = b*b - 4*c
#giải phương trình
if delta < 0:
    print("\nPhương Trình Vô Nghiệm !")
elif delta == 0:
    print("\nPhương Trình Có Nghiệm Kep x1 = x2", -b)
else:
    x1 = (-b - math.sqrt(delta))
    x2 = -b - x1
    print("\nPhương Trình Có 2 Nghiệm Phân Biệt ")
    print("x1 = ",x1, "x2 = ", x2)