Помогите написать программу ** паскале абс цикл с постусловием Дано целое число N (> 1)....

Question

Помогите написать программу на паскале абс
цикл с постусловием
Дано целое число N (> 1). Вывести наименьшее из целых чисел K, для которых сумма
1 + 2 + … + K будет больше или равна N, и саму эту сумму.

Answer 1

Var n,k,summ:integer;
begin
  write('Введи число N: ');
  readln(n);
  repeat begin
     k:=k+1;
     summ:=summ+k;
     end;
  until summ>=n;
  writeln('K=',k,', 1+..+',k,'=',summ,', ',summ,'>=',N);
end.  

Comments

можете еще и описать?

---

тут и описывать-то нечего, всё очевидно... Если вы не понимаете, что тут происходит, то настоятельно советую почитать книгу по вашему предмету. Дальше задачи сложнее будут, а эта просто элементарная была...

---

спасибо