Предмет: Информатика,
автор: Medina95
СРОЧНО!!! ПОМОГИТЕ ПЛИЗ!!! (см.в вложения) Задание на тему: "Циклы" В турбо паскале....В коде должно быть:
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.
Интересные вопросы
Предмет: Українська мова,
автор: travkinamasa13
Предмет: Українська література,
автор: semenkoarsenij
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Математика,
автор: Ирина201215