Bài toán 1: Viết chương trình nhập vào tổng điểm khi tham gia trò chơi của một học sinh và cho biết học sinh đó có đạt giải thưởng hay không? Biết: Tổng điểm >= 100: Đạt giải Tổng điểm <100 : Không đạt giải Bài toán 2: Viết chương trình nhập vào từ bàn phím 3 số a, b, c bất kỳ, kiểm tra 3 số đó có phải là độ dài 3 cạnh của tam giác không? Nếu có hãy tính diện tích của tam giác đó.

Bài toán 1 :

program tinh;

uses crt;

var t : integer;

begin

clrscr;

write('nhap tong diem khi tham gia tro choi  :');readln(t);

if t >= 100 then writeln('Dat giai')

else writeln('Khong dat giai');

readln

end.

Bài toán 2 :

program tam_giac;
uses crt;
var a, b, c : integer;

      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);

p := (a + b + c)/2;
s := sqrt(p*(p-a)*(p-b)*(p-c));
if (a +b > c) or (a + c > b) or (b + c > a) then

begin
writeln('ba so nguyen duong la canh cua tam giac');

writeln('dien tich cua tam giac la :', s:8:2);

end
else writeln('ba so nguyen duong khong la do dai ba canh tam giac ');
readln
end.