В чем тут ошибка?? это делфи

[Irinka_x]

надо написать программу тут картинка

var
  Form4: TForm4;
 S,I:integer;
implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
i:=1;
S:=0;
while i<=100 do
begin
  S:=S+1/SQR(i);
  i:=i+1;   // здесь выдает ошибку, что делать как исправить?
end;
write('S=',S);
end;
end.

[Аватар]

Ошибка в строке выше при попытке засунуть вещественный результат в целочисленную переменную

[Irinka_x]

подскажи как исправить я уже не понимаю

[Аватар]

Для начала s опиши как real, например. И чего там write('S=',S) делает? В консоль что-ли пытаешься записать в оконном приложении?

[Irinka_x]

спасибо))

[min@y™]

спасибо))

ты только эту формулу математикам не показывай.

а то ЗАРЭЖУТ нафик.

[type_Oleg]

Проще так:

var
  Form4: TForm4;
implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var i:Integer;
    s:Real;
begin
 s:=0;
 for i:=1 to 100 do s:=s+1/(i*i);
 Edit1.Text:=FloatToStr(s); // надо посадить на форму поле Edit
end;
end.

.. если вам конечно не запретили использовать for

[Irinka_x]

через For и надо было)

[Аватар]

а то ЗАРЭЖУТ нафик.

Не-а. Это дзета-функция Римана. В пределе равна pi^2/6

[type_Oleg]

Да, да, ζ(2).