Sum:=Sum+A;
N:=N+1;
Until Sun>S;
Writeln(‘Постраждає ‘,N,’-й пасажир.’);
Readkey;
End.
ЗАДАЧА №181
Умова: Капосний папуга навчився висмикувати у дідуся Василя волосся, яке ще залишилося у того на голові. Почавши з однієї волосини, він щодня збільшував порцію вдвічі. Через скільки днів дідусеві не знадобиться гребінець, якщо спочатку в нього на голові було аж N волосин?
Розв ‘язання: Аналогічно до попередньої задачі, аналізувати наявність волосся на голові слід після того, як папуга вже висмикнув чергову порцію волосся. А «знущання» над дідусем скінчиться тоді, коли гребінець йому стане непотрібним, тобто кількість волосся на голові дорівнюватиме нулю. Зверніть увагу, що в цій задачі змінна S використовується для підрахунку чергової порції волосся, що підлягає висмикуванню капосним папугою.
Program Example_181;
Uses crt;
Var S,N,Sum:longint; {S - кількість волосся, що буде висмикнутим, Sum - кількість волосся, що залишилося в дідуся на голові, N - початкова кількість волосся}
Day:word;
{Day — номер дня, який папуга знущається над дідусем}
Begin
Clrscr;
Write(‘Початкова кількість волосся в дідуся на голові: ‘) ;
Readln(N) ;
If N=0
Then writeln(‘Дідусь уже лисий, папузі нічого робити!’)
Else
begin
Day:=0;
Sum: =N ;
S:=1;
{Початкова кількість волосся, що буде висмикнуте папуго»}
Repeat
Sum:=Sum-S; {Зменшення дідусевого волосся}
S:=S*2;
Day:=Day+1; {Підрахунок номеру дня}
Until Sun<=0;
Writeln(‘Папуга знущався над дідусем ‘,Day,’ днів.’);
End;
Readkey;
End.
ЗАДАЧА №209
Умова: На скільки років необхідно покласти в банк суму X грошових одиниць, щоб одержати суму N грошових одиниць (N > X), якщо банк нараховує 200 % річних?
Розв’язання.Очевидно, що умовою виходу з цього циклу буде отримання заданої суми грошей. Якщо за умовою задачі N > X, то кожну перевірку ми будемо виконувати після того, як до вкладеної суми додамо щорічний банківський процент. Отже, програма має вигляд:
Program Example_209;
Uses crt;
Var X,N:real; {X - початковий внесок, N - бажана сума} Rezrreal; {Rez - результуюча сума на рахунку} Years:longint; {Years - термін, протягом якого сума перебувала в банку}
Begin
