Вычислить сумму чисел.

[ilnar51]

S=K+(K+1)+(K+2)+(K+3)+...+(K+N);
(K<N)


плиз напишите программу полностью=)

[Hacker19_90]

readln (k);
readln (n);
s := k;
for i := 1 to n do
begin
    s := (s + (k + i));
end;
writeln (s);

[Stilet]

Предлагаю упростить.

var i,k,n,s:INTEGER;
begin
 readln (k);readln (n); for i:=k to n do s:=s+i; write(s);readln;
end.

[ilnar51]

Сообщение от Hacker19_90

readln (k);
readln (n);
s := k;
for i := 1 to n do
begin
    s := (s + (k + i));
end;
writeln (s);

мне с циклом while надо=)

[Hacker19_90]

i := k
while i < (k+n) do
begin
     Inc(s, i);
     Inc(i);
end;

[ilnar51]

Inc что значит?
а можно полностью программу?прост я тока начинающий=(

[Hacker19_90]

program d;
uses crt;
var
    s, k, n, i: integer;
begin
    clrscr;
    readln(k);
    readln(n);
    i := k
    while i < (k+n) do
    begin
        Inc(s, i);
        Inc(i);
    end;
    Writeln (s);
    readkey;
end.

Inc что значит?

Увеличение!