Информатика, опубликовано 2018-08-22 19:58:07 by Гость
Pascal,цикл while или repeat 1+1/2!+1/4!+1/6!+…
Ответ оставил Гость
Program n1;
var i,n,p: integer;
y: real;
begin
write(введите кол-во слагаемых: );
readln(n);
i:=1;
y:=1;
p:=1;
while i
y:=y+1/p;
i:=i+1;
end;
writeln(y:2:10);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.