ПОЖАЛУЙСТА ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ И БЛОК-СХЕМУ.Срочно надо программу надо на Паскаледано натуральное число n. вычислить s=1*2+2*3*4+...+n*(n+1)*...*2nЗаранее очень благодарна
ПОЖАЛУЙСТА ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ И БЛОК-СХЕМУ.
Срочно надо программу надо на Паскале
дано натуральное число n. вычислить s=1*2+2*3*4+...+n*(n+1)*...*2n
Заранее очень благодарна
Гость
Ответ(ы) на вопрос:
ГостьProgram 1;
Var s,i,n,a:integer;
begin
writeln('Введите число n');
readln(n);
S:=0;
for i:=2 to 2*n do
begin
a:=i*(i-1);
S:=S+a;
end;
writeln('S=',S:3);
readln;
end.
Дайте лучший ответ)
Не нашли ответ?
Похожие вопросы