Помогите решить задачу, Pascal. Номер 5.29
Помогите решить задачу, Pascal. Номер 5.29
Гость
Ответ(ы) на вопрос:
Гость Var
x,s:real;
i:integer;
begin
i:=101;
s:=1/101;
while i>=3 do begin
i:=i-2;
s:=1/(i+s)
end;
Writeln(int(100000000*frac(s)))
end.
Резульат
76159415
Не нашли ответ?
Похожие вопросы