#9747: AC了


xcqzbzb (沈屌丝)

School : 上海市娄山中学
ID : 47687
IP address : [218.242.227.168]
Last Login :
2015-08-06 14:42:27
d511. 小明的作業 -- 板橋高中教學題 | From: [180.169.25.90] | Post Date : 2015-03-28 17:04

var
  i:byte;
  a,b,c,n:integer;
begin
  while not eof do begin
    n:=0;
    for i:=1 to 5 do begin
      readln(a,b,c);
      if (a>c) and (a>b) then if (a*a)=(b*b)+(c*c) then n:=n+1;

      if (b>c) and (b>a) then if (b*b)=(a*a)+(c*c) then n:=n+1;

      if (c>a) and (c>b) then if (c*c)=(b*b)+(a*a) then n:=n+1;
     
    end;
    writeln(n);
  end;
  readln;
end.

 
ZeroJudge Forum