Question

срочно завтро самостоятльная помогите пожалуста заранее спасибо
составить программу вычисления значения суммы чисел: 14;15;16;17;.... пока сумма не достигнет числа k

Answer 1

var
a,k:integer;
begin
read(k);
a:=14;
while a<=k begin
k:=k+a;
a:=a+1;
end;
writeln(Сумма: ,k);
end.