Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:066536 / 116В
.txt program p116;
var
n,i:integer;
x,s,a,b:real;
begin
writeln; writeln; writeln;
write('n='); readln(n);
write('x='); readln(x);
s:=0;
b:=1;
for i:=1 to n do
begin
a:=x+cos(i*x);
b:=b/2;
s:=s+a*b;
end;
writeln('s=',s:1:5);
{readln;}
end.
var
n,i:integer;
x,s,a,b:real;
begin
writeln; writeln; writeln;
write('n='); readln(n);
write('x='); readln(x);
s:=0;
b:=1;
for i:=1 to n do
begin
a:=x+cos(i*x);
b:=b/2;
s:=s+a*b;
end;
writeln('s=',s:1:5);
{readln;}
end.