Процент по вкладу

@Paul Oakenfold · Регистрация: 10.04.2009

Author24 — интернет-сервис помощи студентам

Процентная ставка по вкладу 15% годовых. Первоначальный вклад составил A р. Выведите на экран, через сколько лет он станет больше B р. Значения A и B вводятся с клавиатуры.

@Puporev · 11.04.2009, 13:34

Pascal

uses crt;
var a,b:real;
    l:integer;
begin
clrscr;
write('a=');readln(a);
repeat
write('b=');readln(b);
until(b>a);
l:=0;
while a<=b do
  begin
   a:=a*1.15;
   l:=l+1;
 end;
write('Через ',l,' лет');
readln
end.

@Paul Oakenfold 0 / 0 / 0 Регистрация: 10.04.2009 Сообщений: 35
		1
	Процент по вкладу 10.04.2009, 19:09. Показов 1910. Ответов 1 Метки нет (Все метки) Процентная ставка по вкладу 15% годовых. Первоначальный вклад составил A р. Выведите на экран, через сколько лет он станет больше B р. Значения A и B вводятся с клавиатуры. 0

	11.04.2009, 13:34

Опции темы

Процент по вкладу

Решение