Ошибка 215 - Turbo Pascal

Узнай цену своей работы

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

Ошибка 215 Арифметическое переполнение как исправить?
Листинг программы
  1. Program lab6;
  2. var
  3. a:integer;
  4. b,c: real;
  5. begin
  6. a:=2;
  7. b:=0;
  8. c:=a/(sqr(a)+5);
  9. while c>=0.005 do
  10. begin
  11. a:=a+1;
  12. c:=a/(sqr(a)+5);
  13. b:=b+c;
  14. end;
  15. writeln('‘㬬* ап¤* -',b:4:6);
  16. writeln('—«Ґ* ап¤* - ',c:4:6);
  17. read(b);
  18. end.

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

textual
Листинг программы
  1. a:real;

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут