Вопрос от пользователя: Пуся
Pascal, цикл while или repeat
1+1/2!+1/4!+1/6!+ …
Ответ: Митюха
Var
i, n:integer;
p, s:real;
begin
Write (‘n=’); Read (n);
s:=1;
i:=1;
p:=1;
while i
Вопрос от пользователя: Пуся
Pascal, цикл while или repeat
1+1/2!+1/4!+1/6!+ …
Ответ: Митюха
Var
i, n:integer;
p, s:real;
begin
Write (‘n=’); Read (n);
s:=1;
i:=1;
p:=1;
while i