For37. Решебник Абрамяна М. Э.

For37. Дано целое число N (> 0). Найти сумму 1¹ + 2² + … + N^N. Чтобы избежать целочисленного переполнения, вычислять слагаемые этой суммы с помощью вещественной переменной и выводить результат как вещественное число.

Решение Pascal

program For37;
var
  N, i, i2 :Integer;
  Rez,Pow: Real;
begin
  Write('Введите N: ');
  Readln(N);
  Rez:=0;
  for i:=1 to N do
   begin
    Pow:=1;
    for i2:=1 to i do Pow:=Pow*i;
    Rez:=Rez+Pow;
   end;
  Writeln(Rez);
end.

program For37;

var

N, i, i2 :Integer;

Rez,Pow: Real;

begin

Write('Введите N: ');

Readln(N);

Rez:=0;

for i:=1 to N do

begin

Pow:=1;

for i2:=1 to i do Pow:=Pow*i;

Rez:=Rez+Pow;

end;

Writeln(Rez);

end.

Решение C

#include 
int main(void)
{
   int n;
   printf("N:");
   scanf ("%i", &n);
 
   int i,i2;
   float rez=0,ni;
   for  (i =1; i<=n; ++i){
      ni=i;
      for (i2=1; i2<=i; ++i2) ni *=i;
      rez +=ni;
   }
  printf("%f\n",rez);
 
  return 0;
}

#include

int main(void)

{

int n;

printf("N:");

scanf ("%i", &n);

int i,i2;

float rez=0,ni;

for (i =1; i<=n; ++i){

ni=i;

for (i2=1; i2<=i; ++i2) ni *=i;

rez +=ni;

}

printf("%f\n",rez);

return 0;

}

На нашем сайте Вы можете заказать решение любой задачи по программированию на любом языке программирования

Поделитесь с друзьями

Образовательный портал uTeacher

Добавить комментарий Отменить ответ

Решебник Абрамяна М. Э. на Pascal и С++. Цикл с параметром: группа For (1-40)