Pascal,цикл while или repeat 1+1/2!+1/4!+1/6!+…
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
Гостьvar
i,n:integer;
p,s:real;
begin
Write('n='); Read(n);
s:=1;
i:=1;
p:=1;
while i