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

Автор: Bronislav

Bronislav — Sun, 27 Jan 2019 21:52:50 +0000

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.

Автор: Sargis

Sargis — Wed, 22 Aug 2018 10:06:25 +0000

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;

}

Автор: Sargis

Sargis — Wed, 22 Aug 2018 10:04:33 +0000

___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;
}
}

Автор: Anton

Anton — Sun, 23 Oct 2016 02:55:33 +0000

В ответ на Newton. Да, по этому я и не стал добавлять решения Кирилла в шапку. Но решение у него всё равно красивое. :)

Автор: Newton

Newton — Sat, 22 Oct 2016 19:13:29 +0000

В ответ на Anton. Задача относится к группе вложенные циклы, поэтому исходное решение, вероятно, более правильное, хоть и несколько сложнее.

Автор: Anton

Anton — Fri, 12 Dec 2014 10:45:11 +0000

В ответ на Кирилл. Да! ... я думал над этим вариантом. Но решил раз уже использую циклы, пусть уж будет в рамках арифметики :)

Автор: Кирилл

Кирилл — Thu, 11 Dec 2014 20:14:22 +0000

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.