Предмет: Информатика,
автор: 040197
Вычислить сумму ряда до n количества значений S=1+ 1/2+1/4+1/(8 )…
напишите программу в паскале
Ответы
Автор ответа:
0
Не очень корректная постановка задачи, но понять можно.
var n,i:integer; s,a:real;
begin
write('n=');readln(n);
s:=1;a:=1;
for i:=2 to n do
begin
a:=a*2; s:=s+1/a;
end;
writeln('s=',s:6:4);
end.
var n,i:integer; s,a:real;
begin
write('n=');readln(n);
s:=1;a:=1;
for i:=2 to n do
begin
a:=a*2; s:=s+1/a;
end;
writeln('s=',s:6:4);
end.
Похожие вопросы
Предмет: Другие предметы,
автор: geliosik
Предмет: Немецкий язык,
автор: glossyzlx
Предмет: Литература,
автор: marzievmeg
Предмет: Алгебра,
автор: shgyze29
Предмет: Математика,
автор: Litvinienko77