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

olchik1980 · 13.03.2013, 14:00

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

Vladimir_S · 13.03.2013, 14:33

Цитата:

Сообщение от olchik1980

Курильщик выкуривал 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.

13.03.2013, 14:00	#1 (permalink)
olchik1980 Новичок Регистрация: 13.03.2013 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Цикл с параметром. Курильщик. Паскаль АВС Курильщик выкуривал K сигарет в день. Потом он решил бросить курить. Для этого каждый день он выкуривает на 1 сигарету меньше. В первый день бросания курить он выкурил K-1 сигарету, во второй день K-2 сигареты, …, в последний день – 1 сигарету. Определите N – количество выкуренных за этот период сигарет и M – количество сигарет оставшихся в последней пачке (в пачке 20 сигарет). вх 2 вых 1 19

13.03.2013, 14:00
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Я уверен, что потратив минутку на прочтение похожих топиков проблема проясниться Цикл с неизвестным заранее числом повторений Microsoft готовит Windows Blue и переходит на ежегодный цикл обновлений Excel в Delphi, цикл по строкам

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070