Страница 1 из 1

Помогите найти ошибку

Добавлено: 08 дек 2009, 17:23
betman
[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]

Re: Помогите найти ошибку

Добавлено: 09 дек 2009, 11:16
Хыиуду
Телепаты в отпуске. Что должна делать программа?

Re: Помогите найти ошибку

Добавлено: 11 дек 2009, 11:52
Игорь Акопян
Дабы буквы русские нормально вставлены были, надлежит копировать их в буфер обмена при включённом языке русском