Составить программу, позволяющую решить задачу. Начальный вклад в банк составила рублей. Через сколько лет он станет больше b рублей? Каждый год вклад увеличивается на 3%.
Answers & Comments
And42
Var now, b : real; years : integer; begin write('Начальный вклад: '); readln(now); write('Конечный вклад (b): '); readln(b); years := 0; while now <= b do begin now := now + now * 3 / 100; years := years + 1; end; writeln('Потребуется лет: ', years); end.
Answers & Comments
now, b : real;
years : integer;
begin
write('Начальный вклад: ');
readln(now);
write('Конечный вклад (b): ');
readln(b);
years := 0;
while now <= b do
begin
now := now + now * 3 / 100;
years := years + 1;
end;
writeln('Потребуется лет: ', years);
end.