Написать программу для нахождения значения переменной S по формуле: S=1n 1 + 1n 2 + ... + 1n n .

1

Ответы и объяснения

2014-01-12T16:05:02+04:00
Uses crt;
var i,n,s:integer;
begin
read(n);
for i:=1 to n do
s:=s+i*n;
writeln(s);
end.