Предмет: Информатика,
автор: MrNauryzbai7
ДАЮ 20 БАЛЛОВ
НА ПАСКАЛЕ
Срочно помогите написать 2 программу.
Приложения:
Ответы
Автор ответа:
1
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
Writeln('S=',SeqGen(17,i->(i+1)*Sqrt(x)/(x+3+i)).Sum)
end.
Пример
x= 3.172
S=17.5251080894449
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
Writeln('S=',SeqGen(17,i->(i+1)*Sqrt(x)/(x+3+i)).Sum)
end.
Пример
x= 3.172
S=17.5251080894449
MrNauryzbai7:
что такое sum, seq,gen?
Интересные вопросы
Предмет: Физика,
автор: Аноним
Предмет: Математика,
автор: Svetlichnaya9333
Предмет: Английский язык,
автор: tata4646
Предмет: Математика,
автор: fazilov1119