Ошибка 215 — арифметическое переполнение - Turbo Pascal

турбо паскаль выдает ошибку - арифметическое переполнение. как от нее избавиться?

var i,j:integer; s: real;
begin
s:=0;
for i:=1 to 100 do
for j:=1 to 60 do
s:=s+ sin((i*i*i)+(j*j*j*j));
writeln('s=',s);
end.

textual
                            Листинг программы 
                        
                            writeln('s=',s:5:2);

Оцени полезность:

13 голосов , оценка 3.692 из 5

Похожие ответы