Shayutnal
6 год назад
ПОМОГИТЕ ПОЖАЛУЙСТА, ИНФОРМАТИКА 10 клас
ОТВЕТЫ
Arhippovich
Jun 29, 2019
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger(n=);
Write(S=,Range(1,n).Select(x-gt;sqrt(3*x)).Sum)
end.
Пример
n= 5
S=14.5186255116972
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger(n=);
Write(S=,Range(1,n).Select(x-gt;sqrt(3*x)).Sum)
end.
Пример
n= 5
S=14.5186255116972
9
Смежные вопросы:
