
Vayalapta
5 год назад
Сосавьте программу вычисления функции

ОТВЕТЫ

Господин
Oct 24, 2020
PascalABC.NET 3.2:
begin
var a := ReadReal('Введите a:');
var n := ReadInteger('Введите n:');
print(1.To(n).Select(i -> (sin(i*i) + 2 * a * i)/(3 * i + 1)).Sum)
end.
begin
var a := ReadReal('Введите a:');
var n := ReadInteger('Введите n:');
print(1.To(n).Select(i -> (sin(i*i) + 2 * a * i)/(3 * i + 1)).Sum)
end.
757
Смежные вопросы: