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$ Program Hotboy ;
uses crt;
var x,y,z:real;
begin
Clrscr;
write(‘Nhap canh x,y,z’);readln(x,y,z);
if sqr(x)+sqr(y)=sqr(z) or sqr(y)+sqr(z)=sqr(x) or sqr(x)+sqr(z)=sqr(y) then write(x:3,y:3,z:3’la 3 canh cua 1 tam giac vuong’)
else write(x:3,y:3,z:3′ khong phai 3 canh cua 1 tam giac vuong’);
readln
end.
Bài 2:
Program Hotboy ;
Uses crt;
I,n,dem : integer ;
Begin
Clrscr;
Dem:=0;
Write(‘nhap so nguyen n’); readln(n);
For i:=1 to n do
If n mod i= 0 and i>0 and i mod 2 =0 then dem:=dem+1;
Write(‘co so so uoc thoa man yeu cau la’,dem);
Readln
End.
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.