S
Smile1995
помогите пожалуйста не могу понять где ошибка(
при n=2
должен выдавать значения t=0.16 u =0.41
а выдает второе значение под первым номером и под вторым это же значение увеличенное вдвое
Pascal
t(Общий вид слагаемого суммы)
s(Сумма)
n(Кол-во слагаемых)
Program Variant_7;
var t,s,f:real;
n,i:integer;
begin
Writeln('Vvod usxodnux dannux:');
Write('n=');
Readln;
Writeln;
Writeln('________');
Writeln('i t');
Writeln('________');
t:=0;
s:=0;
f:=1.0/4.0;
For i:= 1 to n do
begin
t:=1.0/(n*(n+1.0)*(n+2.0));
s:=s+t;
writeln(i:3, ' ', t:0:6);
end;
Writeln('________');
Writeln;
Writeln('f=',f:0:6);
end.
при n=2
должен выдавать значения t=0.16 u =0.41
а выдает второе значение под первым номером и под вторым это же значение увеличенное вдвое
Pascal
t(Общий вид слагаемого суммы)
s(Сумма)
n(Кол-во слагаемых)
Program Variant_7;
var t,s,f:real;
n,i:integer;
begin
Writeln('Vvod usxodnux dannux:');
Write('n=');
Readln;
Writeln;
Writeln('________');
Writeln('i t');
Writeln('________');
t:=0;
s:=0;
f:=1.0/4.0;
For i:= 1 to n do
begin
t:=1.0/(n*(n+1.0)*(n+2.0));
s:=s+t;
writeln(i:3, ' ', t:0:6);
end;
Writeln('________');
Writeln;
Writeln('f=',f:0:6);
end.