var virazhenie, summ: real;
i:integer;
begin
summ:=0
for i:=2 to 4 do
virazhenie:= (i+3)/((i*i + i)*(i+2));
summ:=summ+virazhenie;
end;
writeln('Сумма = ',summ);
end.
Поделитесь своими знаниями, ответьте на вопрос:
решить задачу по Информатике.Вычислить заданное выражение в среде Pascal.
var virazhenie, summ: real;
i:integer;
begin
summ:=0
for i:=2 to 4 do
begin
virazhenie:= (i+3)/((i*i + i)*(i+2));
summ:=summ+virazhenie;
end;
writeln('Сумма = ',summ);
end.