podaj sume n skladników 1/2+2/3+3/4+4/5.... do n-wyrazów
Prosze o pomoc.
-- 26 lis 2014, o 19:41 --
na podstawie tego da sie to zadanie wykonac bo jest podobne tylko nie wiem jak i co pozmieniac:
Kod: Zaznacz cały
program Project1;
var
i,n:integer;
a,s:double;
begin
write('Podaj n:');
readln(n);
s:=0;
for i:=1 to n do
begin
if i mod 2=0 then
a:=1/i
else
a:=i;
writeln('a',i,'=',a:0:3);
s:=s+a;
end;
writeln('suma=', s:0:3);
readln;
end.