nhập từ bàn phím 3 số a,b,c . Kiểm tra xem 3 số đó có lập thành bộ 3 số pitago hay ko
nhập từ bàn phím 3 số a,b,c . Kiểm tra xem 3 số đó có lập thành bộ 3 số pitago hay ko
By Lydia
By Lydia
nhập từ bàn phím 3 số a,b,c . Kiểm tra xem 3 số đó có lập thành bộ 3 số pitago hay ko
program kaito;
uses crt;
var a, b, c: integer;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
write(‘Nhap c: ‘); readln(c);
if (a*a+b*b=c*c) or (b*b+c*c=a*a) or (a*a+c*c=b*b) then writeln(‘Co the lap thanh bo 3 so Pytago’)
else writeln(‘Khong the lap thanh bo so pytago’);
readln
end.
CHÚC BẠN HỌC TỐT!!!
uses crt;
var a,b,c : integer;
begin clrscr;
write(‘Nhap bo ba so a,b,c :’); readln(a,b,c);
if (a*a+b*b=c*c) or (a*a+c*c=b*b) or (b*b+c*c=a*a) then
writeln(‘Ba so nhap la bo so Pytago’)
else writeln(‘Ba so vua nhap khong la bo so Pytago’);
readln
end.