Question

Помогите пожалуйста...
Паскаль, while

Answer 1

Ответ:

Объяснение:

var  

N,K,S:integer;

begin

writeln('Введите число N>1');

readln(N);

K:=1;S:=0;

while S<N do

begin

S:=S+K;

K:=K+1;

end;

Writeln('K=',K-1,'      Сумма: ',S);

end.