Предмет: Информатика,
автор: Натка3
Люди, помогите, пожалуйста! Я что-то не пойму:
1) Что находится в "...";
2) Какой принцип тут можно использовать за условие в while?
3) Как это решить?
Приложения:

Mafin:
Так прямо и написано, что находиться в "..."? И это вообще сто
Ответы
Автор ответа:
1
Представь члены этой суммы в таком виде: 2/3 = 2*1^2/3, 8/3 = 2*2^2/3,
18/3 = 2*3^2/3
То есть они все построены по общей формуле 2n^2/3.
Под "..." скрываются члены от 4 до 15.
S = 2*1^2/3 + 2*2^2/3 + 2*3^2/3 + 2*4^2/3 + 2*5^2/3 + 2*6^2/3 + 2*7^2/3 +
2*8^2/3 + 2*9^2/3 + 2*10^2/3 + 2*11^2/3 + 2*12^2/3 + 2*13^2/3 + 2*14^2/3 +
2*15^2/3
В цикле, естественно, надо менять номер n. Примерно так:
var n: integer, S: double;
BEGIN
S:=0; n:= 1;
While n <= 15 do
begin
S:= S + 2*n*n/3;
n:=n+1;
end;
write S;
END.
18/3 = 2*3^2/3
То есть они все построены по общей формуле 2n^2/3.
Под "..." скрываются члены от 4 до 15.
S = 2*1^2/3 + 2*2^2/3 + 2*3^2/3 + 2*4^2/3 + 2*5^2/3 + 2*6^2/3 + 2*7^2/3 +
2*8^2/3 + 2*9^2/3 + 2*10^2/3 + 2*11^2/3 + 2*12^2/3 + 2*13^2/3 + 2*14^2/3 +
2*15^2/3
В цикле, естественно, надо менять номер n. Примерно так:
var n: integer, S: double;
BEGIN
S:=0; n:= 1;
While n <= 15 do
begin
S:= S + 2*n*n/3;
n:=n+1;
end;
write S;
END.
Автор ответа:
1
var
i:integer;
s:double;
begin
s:=0; i:=1;
while i<=15 do begin s:=s+sqr(i); Inc(i) end;
Writeln(2*s/3)
end.
Результат выполнения программы:
826.666666666667
Похожие вопросы
Предмет: Русский язык,
автор: alenkakreneva
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: Клецко031
Предмет: Физика,
автор: zhenyakuleshov
Предмет: Английский язык,
автор: Lonilli