срочно завтро самостоятльная помогите пожалуста заранее спасибо
составить программу вычисления значения суммы чисел: 14;15;16;17;.... пока сумма не достигнет числа k
составить программу вычисления значения суммы чисел: 14;15;16;17;.... пока сумма не достигнет числа k
More Questions From This User See All
Answers & Comments
a,k:integer;
begin
read(k);
a:=14;
while a<=k begin
k:=k+a;
a:=a+1;
end;
writeln(Сумма: ,k);
end.