Program Pr1;
var i,N:integer;sum:real;
begin
sum:=0;
Write (' N=');Readln(N);
for i:=1 to N do
sum:=sum +1/(20*i+2);
Writeln('sum=',sum);
end.
Объяснение:
Как я помню такая запись
Program Pr1;
var i,N:integer;sum:real;
begin
sum:=0;
Write (' N=');Readln(N);
for i:=1 to N do
sum:=sum +1/(20*i+2);
Writeln('sum=',sum);
end.
Объяснение:
Как я помню такая запись