For37. Дано целое число N (> 0). Найти сумму 11 + 22 + … + NN. Чтобы избежать целочисленного переполнения, вычислять слагаемые этой суммы с помощью вещественной переменной и выводить результат как вещественное число.
>
Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | 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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | #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; } |
На нашем сайте Вы можете заказать решение любой задачи по программированию на любом языке программирования