Вклад в банке составляет x рублей. ежегодно он увеличивается на p процентов, после чего дробная часть копеек отбрасывается. каждый год сумма вклада становится больше. определите, через сколько лет вклад составит не менее y рублей. программа получает на вход три натуральных числа: x, p, y и должна вывести одно целое число. только на паскале

Var sum, required_sum, percent : real; years : integer; begin   read(sum, percent, required_sum);   if percent > 1 then percent : = percent / 100;   repeat       sum : = trunc(100 * sum * (1 + percent)) / 100;       years : = years + 1;       writeln(years, ' sum = ', sum);   until sum > = required_sum;   writeln(years); end.

        a                 b 1     6                 3 2   =a1+b1       =a1/b1   1       6                 3 2       3                 2 1       2               3 2       5               0,666667 1       2               4 2       6               0,5

таблица истинности выражения a → b

а |  b | a → b

0  i  0 |      1

0  i  1 |      1

1  i  0 |      0

1  i  1 |      1

теперь пример: ¬((x> 3)  → (x> 4))

при х = 1: ¬((1> 3)  → (1> 4))= ¬((0)  → (0))=¬(1) = 0,т.е.(1> 3)=ложь(> 4)=ложь(0), а ложь(0) → ложь(0) = истина (1), а отрицание лжи (0) = истина(1)

при х = 2: ¬((2> 3)  → (2> 4))= ¬((0)  → (0))=¬(1) = 0

при х = 3: ¬((3> 3)  → (3> 4))= ¬((0)  → (0))=¬(1) = 0

при х = 4: ¬((4> 3)  → (4> 4))= ¬((1)  → (0))=¬(0) = 1

ответ. х=4.