Помогите.!!!!!Срочно!!!! С решением.

Помогите.!!!!!Срочно!!!! С решением.
Гость
Ответ(ы) на вопрос:
Гость
Program alg;Var S,a:real;    k:integer;beginwriteln('Введите а');readln(a);S:=0;For k:=1 to 4 doS:=S*k+a/(k+1);Writeln('Ваш ответ:', S);end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы