Информатика

Эдуард

13 января, 21:58

Паскаль

Помогите доделать задачу

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

Входные данные

Программа получает на вход три натуральных числа: x, p, y.

Выходные данные

Программа должна вывести одно целое число.

program u1;

var

x, p, s, n: integer;

y:real;

begin

read (x) ;

read (p) ;

read (y) ;

s:=0;

s: = x + (x*p) div 100;

n: = 1;

while (s < y) do

begin

s : = s + ((s*p) div 100) ;

n: = n + 1;

end;

writeln (n) ;

readln;

end.

Здесь где-то есть недоработка.