Есть ответ 👍

Определить значение переменной s после выполнения следующих операторов: s: =1; n: =1; for i: =2 to n do s: =s+1/i;

273
305
Посмотреть ответы 2

Ответы на вопрос:


S: =1; n: =1; for i: =2 to n do s: =s+1/i;   s: = 1+1/2 = 1,5

Var

I, m: integer;

Mul:float;

Begin

Read(b);

Mul=1;

M=-1;

For i := 1 to 8 do

Begin

Mul:=mul*(b+(i+1)*(i+1)*m)/i;

M:=m*(-1);

End;

Writeln(mul);

End.

Объяснение:

Популярно: Информатика