СРОЧНО!!! ПОМОГИТЕ ПЛИЗ!!! (см.в вложения) Задание на тему: "Циклы" В турбо паскале....В коде должно быть:
while a>0,001
for
S=S+a;
n=n+1;
a:=....
(Что то типа этого, но это не весь код...)
Напишите пожалуйста весь код к этому заданию...в турбо паскале....
Приложения:
Ответы
Ответ дал:
0
var
s,a:real;
n,b:integer;
begin
b:=1;
repeat
n:=n+1;
b:=b*2;
a:=(2*n-1)/b;
s:=s+a;
until a<0.001;
writeln('S=',s);
readln;
end.
s,a:real;
n,b:integer;
begin
b:=1;
repeat
n:=n+1;
b:=b*2;
a:=(2*n-1)/b;
s:=s+a;
until a<0.001;
writeln('S=',s);
readln;
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад