Ошибка 215 - Turbo Pascal

Формулировка задачи:

Ошибка 215 Арифметическое переполнение как исправить?

                    Листинг программы
                
 
                        
                          
                    
Program lab6;
var
a:integer;
b,c: real;
begin
a:=2;
b:=0;
c:=a/(sqr(a)+5);
while c>=0.005 do
begin
a:=a+1;
c:=a/(sqr(a)+5);
b:=b+c;
end;
writeln('‘г¬¬* ап¤* -',b:4:6);
writeln('—«Ґ* ап¤* - ',c:4:6);
read(b);
end.

Решение задачи: «Ошибка 215»

textual
                            Листинг программы

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

7 голосов , оценка 3.571 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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