Операторы цикла FOR, WHILE, REPEAT

@Elenochka · Регистрация: 26.04.2011

Author24 — интернет-сервис помощи студентам

Заранее спасибо за помощь..)

@MegaAce · 23.05.2011, 17:46

for

Pascal

uses crt;
var sum,x:real;
    i,j,g,n:integer;
begin
 readln(x,n);
 for i:=1 to n do
 begin
  g:=1;
  for j:=1 to 2*i do
   g:=g*j;
  sum:=sum+((g+abs(x))/i*i);
 end;
 writeln(sum:0:4);
end.

сейчас нету времени, возможно допишу, если меня никто не опередит

	23.05.2011, 17:46

Операторы цикла FOR, WHILE, REPEAT

Решение