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.