program zadacha2;
uses crt;
var i,n,a:integer;
b,y,c,l:real;
begin
clrscr;
readln(n);
a:=1;
b:=2;
c:=5;
for i:=1 to n do
if a mod 2 = 0 then
l:=a+b/c
else
l:=a-b/c;
a:=a+1;
b:=b+2;
c:=c+5;
y:=y+l;
end;
writeln(y:2:2);
readkey;
end.
Первую по подробней расспишите
program zadacha2;
uses crt;
var i,n,a:integer;
b,y,c,l:real;
begin
clrscr;
readln(n);
a:=1;
b:=2;
c:=5;
for i:=1 to n do
begin
if a mod 2 = 0 then
l:=a+b/c
else
l:=a-b/c;
a:=a+1;
b:=b+2;
c:=c+5;
y:=y+l;
end;
writeln(y:2:2);
readkey;
end.
Первую по подробней расспишите