Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  abc
Language: PASCAL
Code:
program HelloWorld;
var
  a,b,c,d,e,f,s:word;
begin
  for a:=1 to 9000 do
  for b:=1 to 9000 do
  for c:=1 to 9000 do
  for d:=1 to 9000 do
begin
s:=0;
  e:=(4*a*a)+(4*b*b)+(4*c*c)+(4*d*d);
  f:=((a+c)*(a+c))+((a+d)*(a+d))+((b+c)*(b+c))+((b+d)*(b+d));
if e=f then 
begin
s:=s+1;
writeln('(',s,')','a=',a,' b=',b,' c=',c,' d=',d);
end;
readln;
end.          
          
          
Comments: