Автор: Илья Именинников

Илья Именинников — Thu, 11 Jul 2019 13:39:17 +0000

Program for20;
var n,i: integer;
    a,b: real;
Begin
  readln (n);
  a:=1;
  b:=0;
  for i:=1 to n do
    begin
      a:=a*i;
      b:=b+a;
    end;
  writeln (b);  
End.

Program for20;

var n,i: integer;

a,b: real;

Begin

readln (n);

a:=1;

b:=0;

for i:=1 to n do

begin

a:=a*i;

b:=b+a;

end;

writeln (b);

End.

Комментарии: Решаем задачи Абрамян на C. For20

Автор: Илья Именинников