Нид хелп с Паскалем, ребяты. Не тяну эту хрень вообще ни разу. В общем, нужно сделать программы по данному алгоритму:
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.
Оцени ответ
