Processing math: 0%

$\newcommand{\eps}{\varepsilon} \newcommand{\RR}{\mathbb{R}} \newcommand{\rd}{\operatorname{d}} \newcommand{\set}[1]{\left\{#1\right\}}$

Решаем задачи Абрамян на Кумире. While12

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

Решение от Дмитрия:

алг While_12 (арг цел N, рез цел K,S)
нач
 K:=1
 S:=1
 нц пока S+K+1<=N
  K:=K+1
  S:=S+K
 кц
кон

алг While_12 (арг цел N, рез цел K,S)

нач

K:=1

S:=1

нц пока S+K+1<=N

K:=K+1

S:=S+K

кц

кон

Другие задачи из раздела While можно посмотреть здесь.

Добавить комментарий Отменить ответ

➤