Паскаль

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

Вклад в банке составляет 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 + (xp) div 100;

n: = 1;

while (s < y) do

begin

s : = s + ((sp) div 100);

n: = n + 1;

end;

writeln (n);

readln;

end.

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

Question

Информатика

Витяся

17 мая, 12:45

Паскаль

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

Вклад в банке составляет 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 + (xp) div 100;

n: = 1;

while (s < y) do

begin

s : = s + ((sp) div 100);

n: = n + 1;

end;

writeln (n);

readln;

end.

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

+3

Ответы (1)

Знаешь ответ?

Буся · Answer 1

Program u1;

var

x, p, y, s, n: integer;

begin

readln (x, p, y);

s:=x;

n: = 0;

while (s < y) do

begin

s : = s+trunc ((s*p) / 100);

n: = n+1;

end;

writeln (n);

end.

Пример:

100 10 500

18