[ kUdtiHaEX @ 19.04.2002. 15:23 ] @
Evo ga program koji sam napisao u pascalu...zasto ne radi?? ----------------------------------------------------------------------- program abc; var I:longint; F, S:real; begin S:=0; F:=1; For I:=1 to 2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2*2 do {inace umesto ovih dvojki treba da bude 2^50} begin F:=sin(i)+cos(i); S:=S+F; end; writeln ('S=',S); readln; end. --------------------------------------------------------------------------------------------- |