Помагите пожалуйста 1 задачу очень надо , для допуска на экзамен очень быстро

1

Ответы и объяснения

2014-04-01T21:46:59+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Program  Valergan;
var
  i,n: integer;
  x,s:real;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln('Программа находит сумму первых N членов ряда x+i^2/2i');
  write('Введите N'); readln(n);
  write('Введите x'); readln(x);
  writeln('*** Вычисляю... ***');
  s:=0;
  for i:=1 to n do s:=s+x+i*i/(2*i);
  writeln ('Сумма ряда равна ',s:8:2);
end.