Нид хелп с паскалем, . не тяну эту хрень вообще ни разу. в общем, нужно сделать программы по данному алгоритму: y = сигма, наверху n=10, внизу i=3, /i/
uses crt; var k,n,i,p,sum : integer; function f(n:integer):integer; begin f:=(abs(n)); end; begin writeln ('vvedite konechnui index') ; readln(p); sum:=0; for k:=1 to p do sum:=sum+f(k); writeln(sum); readln; end.
отметь как лучший ответ!
uses crt;
var k,n,i,p,sum : integer;
function f(n:integer):integer;
begin
f:=(abs(n));
end;
begin
writeln ('vvedite konechnui index') ;
readln(p);
sum:=0;
for k:=1 to p do
sum:=sum+f(k);
writeln(sum);
readln;
end.