Задача "Домино"

[makskovalko]

Помогите, пожалуйста, решить задачу!

[Serge_Bliznykov]

Ну, как обычно - помогите, это "решите за меня" ?!

и, как обычно, элементарщина..

var i, K, Cnt : integer;
begin
  Прочитать K из входного файла
  Cnt := 0;
  for i:= 1 to K+1 do Cnt := Cnt + i;
  Выдать Cnt в выходной файл
end.

[s-andriano]

Серж, ты специально приводишь явно неоптимальный алгоритм?
Цикл здесь явно лишний.

[Serge_Bliznykov]

Сообщение от s-andriano

Серж, ты специально приводишь явно неоптимальный алгоритм?
Цикл здесь явно лишний.

не, не специально. формулу суммы арифметического ряда не помню точно, вот и не стал рисковать..
думаю, что оптимальное будет что-то вроде:

Cnt := (k+1)*(k+2) div 2;

p.s. не проверял, надеюсь, что формулу суммы членов ряда арифметической прогрессии я вспомнил правильно...

[s-andriano]

Угу.
Именно это я и имел в виду. Просто решил, что из педагогических соображений решено было сделать именно так.

Я, правда, никогда формул не запоминаю, а предпочитаю их придумывать заново. Но у меня получилось то же самое, так что будем надеяться, что оба мы - ты вспомнил, а я придумал - правильно.