Помогите найти ошибку
Добавлено: 08 дек 2009, 17:23
[HTML]program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils, math;
var i,n:integer;
e,s,ds:real;
begin
writeln('ââåäèòå e');readln(e);
s:=0;
for i:=1 to maxint do //maxInt - Ìàêñèìàëüíîå çíà÷åíèå òèïà integer: 2147483647
begin
ds:=power(-1, i+1)/i*((i+1)*(i+2));
if abs(ds)<e then
s:=s+ds;
end;
writeln('îòâåò ',s);
end.
[/HTML]
{$APPTYPE CONSOLE}
uses
SysUtils, math;
var i,n:integer;
e,s,ds:real;
begin
writeln('ââåäèòå e');readln(e);
s:=0;
for i:=1 to maxint do //maxInt - Ìàêñèìàëüíîå çíà÷åíèå òèïà integer: 2147483647
begin
ds:=power(-1, i+1)/i*((i+1)*(i+2));
if abs(ds)<e then
s:=s+ds;
end;
writeln('îòâåò ',s);
end.
[/HTML]