•  4

    Σ    (S!+S)

    S=1

     найдите ошибку, плиз

    program mar;
    uses crt;
    var F,S:integer;
    k:real;
    begin
    clrscr;
    F:=1;
    k:=0;
    for S:=1 to 4 do
    begin
    F:=F*S;
    k:=k*(F+S);
    end;
    writeln('k =',k:4:2);
    readkey;
    end.

     

Ответы 1

  • Вот так?

     

    Program solution;Uses Crt;Var s : byte;res, fact : word;Beginfact := 1;res := 0;For s := 1 to 4 do        Begin        res := res + s + fact;        fact := fact * (s + 1);        End;Write(res);ReadKey;End.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years