Bài 1: Viết chương trình nhập kiểm tra 3 cạnh x, y, z có là 3 cạnh của tam giác vuông không? Bài 2: Nhập vào 1 số nguyên n. Hãy đếm xem n có bao nhiêu ước số có giá trị dương (>0) và ở vị trí chẳn? (Gợi ý: Biến đếm i chạy từ 1 đến n, kiểm tra nếu biến đếm i là ước số của n, đồng thời biến đếm i có giá trị dương và ở vị trí chẳn thì biến đếm sẽ tăng lên 1 đơn vị).

Bài 1:

uses crt;

var a,b,c:real;

begin

     clrscr;

     write('Nhap canh a: ');readln(a);

     write('Nhap canh b: ');readln(b);

     write('Nhap canh c: ');readln(c);

     if (sqr(a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then

     writeln('Day la 3 canh cua 1 tam giac vuong')

     else writeln('Day khong phai 3 canh cua 1 tam giac vuong');

     readln

end.

 Bài 2:

uses crt;

var i,n,s:integer;

begin

     clrscr;

     s:=0;

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

     for i:=1 to n do

     begin

          if n mod i=0 then

          begin

               if (i>0) and (i mod 2=0) then inc(s);

          end;

     end;

     writeln('Co ',s,' uoc so co gia tri duong va o vi tri chan'); (đoạn này rút ngắn cũng được)

     readln

end.