Цикл с параметром. Курильщик. Паскаль АВС

[olchik1980]

Цикл с параметром. Курильщик. Паскаль АВС

Курильщик выкуривал K сигарет в день. Потом он решил бросить курить. Для этого каждый день он выкуривает на 1 сигарету меньше. В первый день бросания курить он выкурил K-1 сигарету, во второй день K-2 сигареты, …, в последний день – 1 сигарету. Определите N – количество выкуренных за этот период сигарет и M – количество сигарет оставшихся в последней пачке (в пачке 20 сигарет).
вх 2
вых 1 19

 

[Vladimir_S]

Курильщик выкуривал K сигарет в день. Потом он решил бросить курить. Для этого каждый день он выкуривает на 1 сигарету меньше. В первый день бросания курить он выкурил K-1 сигарету, во второй день K-2 сигареты, …, в последний день – 1 сигарету. Определите N – количество выкуренных за этот период сигарет и M – количество сигарет оставшихся в последней пачке (в пачке 20 сигарет).
вх 2
вых 1 19

Не знаю, на кой пёс тут "цикл с параметрами", равно как и цикл вообще, задачка решается с помощью формулы суммы арифметической прогрессии безо всяких циклов.

Var
 K,N,M:Integer;
Begin
 Write('K= ');
 Readln(K);
 N:=(K*(K-1)) div 2;
 M:=20 - (N mod 20);
 Writeln('N= ',N);
 Writeln('M= ',M);
 Readln
End.