N— натуральное число. вычислить (pascal). использовать цикл в цикле.

mishutka144qwerty mishutka144qwerty    1   13.07.2019 18:10    1

Ответы
omusheg omusheg  03.10.2020 03:14
Var
  i, j, n, sum, mult: integer;
begin
  read(n);
  for i := 1 to n do
  begin
    mult := 1;
    for j := 1 to i do
      mult := mult * i;
    sum := sum + mult;
  end;
  writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика