Question

*Viết chương trình Pascal*

1) Viết chương trình in ra màn hình các bộ số Pytago ≤ 50 không trùng lặp.

Answer 1

bài này dễ ẹt à:

Uses crt;
var a,b,c:integer;
Begin
ClrScr;
WriteLn('Bo 3 so pitago <= 50 la:');
For a:=1 to 50 Do
For b:=1 to 50 Do
For c:=1 to 50 Do
if sqr(a)=sqr(b)+sqr(c) then Write('(',a,',',b,',',c,') ');
Readln;
End.

Answer 2

Uses crt;
var a,b,c:integer;
Begin
ClrScr;
WriteLn('Bo 3 so pitago tu 1 den 100 la:');
For a:=1 to 100 Do
For b:=1 to 100 Do
For c:=1 to 100 Do
if a*a=b*b+c*c then Write('(',a,',',b,',',c,') ');
Readln
End.

Answer 3

Uses crt;
var a,b,c:integer;
Begin
ClrScr;
WriteLn('Bo 3 so pitago _< 50 la:');
For a:=1 to 100 Do
For b:=1 to 100 Do
For c:=1 to 100 Do
if a*a=b*b+c*c then Write('(',a,',',b,',',c,') ');
Readln
End.