Var n:word; {I - номер пасажира, що увійшов у ліфт}

Sum,A,S:real; {Sum - сумарна вага пасажирів, що знаходяться в ліфті, А - вага чергового пасажира, що увійшов до ліфта, S - критична вага, що може бути піднята ліфтом}

Begin

Clrscr;

Sum:=0;

N:=0; {На початху роботи програми в ліфті немає пасажирів}

Write('Введіть критичну вагу, що піднімає ліфт: ');

Readln(S);

Repeat

Write('Введіть вагу чергового пасажира: ');

Readln(A);

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

Clrscr;

Write('Введіть початкову суму внеску: ');

Readln(X);

Write('Введіть бажану суму внеску: ');

Readln(N);

If N<=X

Then writeln('Bn вже маєте бажану суму!')

Else

Begin

Rez:=X;

Years:=0;

Repeat

Rez:=3*Rez;

{200% річних збільшують за рік внесок втричі}

Years:=Years+l;

Until Rez>=N;

Writeln( 'Ви отримаєте бажану суму через ',years,' років') ;

End;

Readkey;

End.