|
|
вернуться в форумwhy CRASH Послано Oleg 20 ноя 2002 13:14 const eps=0.000001; var j:real; i,n:longint; r:real; begin read(n); for i:=1 to n do begin read(j); r:=sqrt(-7+8*j); r:=round(r)-r; if abs(r)<eps then write('1 ') else write('0 '); end; end. AC Послано Oleg 20 ноя 2002 16:17 Re: why CRASH Use i:real; ILI U menja prokatila? if undestand :) |
|
|