Сделайте скриншот работы программы

@Hatesteil · Регистрация: 16.03.2016

Author24 — интернет-сервис помощи студентам

Вот код, нужно сделать парочку скриншотиков. Лично у меня в 7,0 пишет арифметическое переполнение. Так что если что то не так, был при признателен, если вы помогли мне исправить это.

Pascal

program lab6; 
Var 
A,b,c:real; 
I:integer; 
Begin 
A:=0.005; 
C:=1; 
B:=0; 
I:=2; 
While c>a do 
Begin 
C:=i/((i*i)+5); 
B:=b+c; 
I:=i+1; 
End; 
Write('сумма всех рядов= ',b:0:3); 
Readln; 
End.

@Joy · 04.05.2016, 08:13

Не по теме:

D:\tp7_0\BIN>turbo
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
сумма всех рядов= 4.207

@Joy
	04.05.2016, 08:13 Сделайте скриншот работы программы #2
	Не по теме: D:\tp7_0\BIN>turbo Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International сумма всех рядов= 4.207 0