Предмет: Информатика, автор: MarfaJon

ЛЮДИ ПОЖАЛУЙСТА ПОМОГИТЕ. НАДО СДЕЛАТЬ программу, блок схему и ручной просчет

Приложения:

Ответы

Автор ответа: HRAshton
0
var
  n, i, j: byte;
  s: longint;

begin
  readln(n);
  for i := 1 to n do
    s := round(s + power(i, n));
  writeln(s);
end.
Приложения:
Похожие вопросы
Предмет: Английский язык, автор: Аноним
Предмет: Алгебра, автор: yunii
Предмет: Английский язык, автор: mirali250999
Предмет: Математика, автор: ЮляВасильева94