Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Требуется составить программу для суммирования первых N введенных чисел возведение результатов в n степень
Плиз помогите я не понимаю инф. даю 100 БАЛОВ

Ответ оставил Гость

Program pr;
uses crt;
Var N,i:integer;
stepen, sum,a:real;

Begin
  Writeln(Введите количество чисел N);
  readln(N);
  Writeln(Введите степень);
  readln(stepen);
  Writeln();
  sum:=0;
 
  for i:=1 to N do
   Begin   
      Write(Введите ,i, число: );   
      readln(a);   
      sum:=sum+a;
   end;

Writeln(sum = ,sum);
Writeln(sum^,stepen, = ,power(sum, stepen));

readln;
end.