безотлагательно завтро самостоятльная помогите пожалуста заблаговременно спасибо составить программку

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

Задать свой вопрос
1 ответ
Var
a,k:integer;
begin
read(k);
a:=14;
while alt;=k begin
k:=k+a;
a:=a+1;
end;
writeln(Сумма: ,k);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт