По разделам



Задача For 37


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

Код (C/C++)

#include <bits/stdc++.h>
using namespace std;

int main() {
	srand((int)time(0));
	int N = rand() % 20 + 2;
	//N = 150;
	
	double s = 0, p;	
	for(int i = 1; i <= N; i++) {
		p = 1.0;
		for(int j = 1; j <= i; j++)
			p *= i;
		s += p;
		cout << i << " : " << p << " : " << s << endl;		
	}
	cout << "N = " << N << endl;
	cout << "Sum = " << s << endl;
	
	return 0;
}

Код (Python)

import random

N = random.randrange(1,11)

print("N = ",N)
print()

s = 0
for i in range(1,N+1):
    p = 1.0
    for j in range(1,i+1):
        p *= i
    s += p
    print("i = ",i)
    print("p = ",p)
    print("s = ",s)
    print()

print("Sum = ",s)
									

Код (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.
									




For. Абрамян
For 1 Просмотров: 23
For 2 Просмотров: 21
For 3 Просмотров: 15
For 4 Просмотров: 21
For 5 Просмотров: 20
For 6 Просмотров: 17
For 7 Просмотров: 18
For 8 Просмотров: 17
For 9 Просмотров: 12
For 10 Просмотров: 17
For 11 Просмотров: 19
For 12 Просмотров: 26
For 13 Просмотров: 17
For 14 Просмотров: 18
For 15 Просмотров: 18
For 16 Просмотров: 15
For 17 Просмотров: 22
For 18 Просмотров: 17
For 19 Просмотров: 18
For 20 Просмотров: 11
For 21 Просмотров: 18
For 22 Просмотров: 15
For 23 Просмотров: 21
For 24 Просмотров: 16
For 25 Просмотров: 14
For 26 Просмотров: 15
For 27 Просмотров: 12
For 28 Просмотров: 29
For 29 Просмотров: 18
For 30 Просмотров: 12
For 31 Просмотров: 10
For 32 Просмотров: 15
For 33 Просмотров: 16
For 34 Просмотров: 11
For 35 Просмотров: 11
For 36 Просмотров: 16
For 37 Просмотров: 11
For 38 Просмотров: 19
For 39 Просмотров: 13
For 40 Просмотров: 13

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться