Решаем задачи Абрамян на Паскале. For36

For36. Даны целые положительные числа $$N$$ и $$K$$. Найти сумму $$1^K + 2^K + … + N^K$$. Чтобы избежать целочисленного переполнения, вычислять слагаемые этой суммы с помощью вещественной переменной и выводить результат как вещественное число.

Решение:

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

program For36;

var

N,K, i, i2 :Integer;

Rez,Pow: Real;

begin

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

Readln(N);

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

Readln(K);

Rez:=0;

for i:=1 to N do

begin

Pow:=1;

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

Rez:=Rez+Pow;

end;

Writeln(Rez);

end.

Другие задачи из раздела For можно посмотреть здесь.

Комментарии 7

Кирилл

12.12.2014 в 00:14

Delphi/Pascal

uses PT4; var i,n,k:integer; var summ:real; begin Task('For36'); read(n,k); for i:=1 to n do summ:=summ+exp(k*ln(i)); write(summ); end.

1
2
3
4
5
6
7
8
9
10

uses PT4;
var i,n,k:integer;
var summ:real;
begin
  Task('For36');
read(n,k);
for i:=1 to n do
   summ:=summ+exp(k*ln(i));
   write(summ);
end.

Ответить
- Anton
  
  12.12.2014 в 14:45
  
  Да! … я думал над этим вариантом. Но решил раз уже использую циклы, пусть уж будет в рамках арифметики 🙂
  
  Ответить
  - Newton
    
    22.10.2016 в 23:13
    
    Задача относится к группе вложенные циклы, поэтому исходное решение, вероятно, более правильное, хоть и несколько сложнее.
    
    Ответить
    - Anton
      
      23.10.2016 в 06:55
      
      Да, по этому я и не стал добавлять решения Кирилла в шапку. Но решение у него всё равно красивое. 🙂
      
      Ответить
Sargis

22.08.2018 в 14:04

___C++___
/*
For36◦. Даны целые положительные числа N и K. Найти сумму 1^K + 2^K + . . . + N^K. Чтобы избежать целочисленного переполнения,
вычислять слагаемые этой суммы с помощью вещественной переменной и выводить результат как вещественное число.
*/

void For_036()
{
while (true)
{
int N, K;
double sum = 0.0;
cout < 0 and K > 0 : N = «;
cin >> N;
cout <> K;
for (int i = 1; i <= N; i++)
{
int sum1 = i;
for (int j = 2; j <= K; j++)
{
sum1 = sum1 * i;
}
sum = sum + sum1;
}
cout << sum << endl;
}
}

Ответить

/*
For36◦. Даны целые положительные числа N и K. Найти сумму 1^K + 2^K + . . . + N^K. Чтобы избежать целочисленного переполнения,
вычислять слагаемые этой суммы с помощью вещественной переменной и выводить результат как вещественное число.
*/

void For_036()
{
	while (true)
	{
		int N, K;
		double sum = 0.0;
		cout << "Please input N > 0 and K > 0 : N = ";
		cin >> N;
		cout << "K = ";
		cin >> K;
		for (int i = 1; i <= N; i++)
		{
			int sum1 = i;
			for (int j = 2; j <= K; j++)
			{
				sum1 = sum1 * i;
			}
			sum = sum + sum1;
		}
		cout << sum << endl;
	}
}

For36◦. Даны целые положительные числа N и K. Найти сумму 1^K + 2^K + . . . + N^K. Чтобы избежать целочисленного переполнения,

вычислять слагаемые этой суммы с помощью вещественной переменной и выводить результат как вещественное число.

void For_036()

{

while (true)

{

int N, K;

double sum = 0.0;

cout << "Please input N > 0 and K > 0 : N = ";

cin >> N;

cout << "K = ";

cin >> K;

for (int i = 1; i <= N; i++)

{

int sum1 = i;

for (int j = 2; j <= K; j++)

{

sum1 = sum1 * i;

}

sum = sum + sum1;

}

cout << sum << endl;

}

Ответить

program For36;//pabc.net

//uses PT4;

begin
  //Task('For36');
  var (N, K) := ReadInteger2();
  var S := 1.0;
  Range(2, N).ForEach(x -> begin S += SeqFill(K, x).Aggregate(1.0, (res, x)-> res * x) end);
  Print(S)
end.

program For36;//pabc.net

//uses PT4;

begin

//Task('For36');

var (N, K) := ReadInteger2();

var S := 1.0;

Range(2, N).ForEach(x -> begin S += SeqFill(K, x).Aggregate(1.0, (res, x)-> res * x) end);

Print(S)

end.

Ответить

Решаем задачи Абрамян на Паскале. For36

Комментарии:

Комментарии 7

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