Ответ(ы) на вопрос:
ГостьРешение задачи в файле
Гостьuses crt;var i,n,k:integer; s,a,st:real;beginclrscr;writeln('введите кличество слагаемых');readln(n);s:=86;i:=2;k:=1;st:=4;while i<=2*n do begin a:=(i-3)/(st); s:=s+a; n:=n+2; k:=k+1; st:=4*st end; writeln('S=',s);end.
Не нашли ответ?
Похожие вопросы