Ответы
Ответ дал:
0
uses crt;
var a, b, c, i, n :integer;
s :real;
begin
clrscr;
writeln ('Введите числитель последней дроби, превышающий 1');
readln (n);
for i:=2 to n do
s:=s+i/(i+1);
writeln ('Сумма дробей с точностью до 10 знаков = ', s:0:10);
end.
P.S. Надеюсь на благодарность и лучший ответ.
var a, b, c, i, n :integer;
s :real;
begin
clrscr;
writeln ('Введите числитель последней дроби, превышающий 1');
readln (n);
for i:=2 to n do
s:=s+i/(i+1);
writeln ('Сумма дробей с точностью до 10 знаков = ', s:0:10);
end.
P.S. Надеюсь на благодарность и лучший ответ.
Ответ дал:
0
спасибо большушее
Вас заинтересует
2 года назад
2 года назад
8 лет назад
10 лет назад