Tiny语言 实验一

read n;
if n>0 then
   factorial:=1;
   repeat
       factorial:=factorial*n;
       n:=n-1;
    until n=0;
write  factorial
end


//sort
read  x;
read  y;
read  z;
max:= x;
if max   max:=y;
 else
      if   max          max:=z
      end
end
write max;


//
read 2a;
read b;
read c;
if  2a*2a= b*b + c*c  then
    write 1;
    else  
         if   b*b= 2a*2a + c*c  then
           write 1;
               else 
                  if   c* c= 2a*2a +  c*c  then
                        write 1;
                  else  write 0  //;
                  end
      // end       
end


//
repeat 
     read a  ;
     sum=(sum+a;
     i=i+1
until a= 0;
 
write(sum/i);