Bandilace
5 год назад
ПЛАЧУ МНОГО Поинтов, Пожалуйста посчитайтеПожалуйста посчитайте пожалуйста, срочно! Пожалуйста посчитайте, буду очень благодарен!
ОТВЕТЫ
Мечислав
Oct 24, 2020
var
y,sum:real;
i:integer;
begin
sum:=0;
for i:=2 to 10 do begin
sum:=sum+(1/(i*i));
end;
y:=1+sum;
writeln(y);
end.
y,sum:real;
i:integer;
begin
sum:=0;
for i:=2 to 10 do begin
sum:=sum+(1/(i*i));
end;
y:=1+sum;
writeln(y);
end.
472
Смежные вопросы:
