• делфи, написать программу
    все изложено в фото

    question img
    question img

Ответы 1

  • var    k, i, n, m: integer;    p: real;begin    Write('m = ');    Readln(m);        for i := 1 to m do     begin        n := i * i;        p := 1;        for k := 1 to n do            p := p * (1 + i) * i / k / k;                writeln('p = ', p:10:10, ' m = ', i);    end;end.
    • Автор:

      pregomrt6
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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