Написать программу в паскале

В банк под 3% годовых кладут 1000 рублей. Через сколько лет сумма на вкладе будет 1500 рублей?

Question

Лукася

11 декабря, 02:20

+2

Ответы (1)

Знаете ответ на вопрос?

Миланка · Answer 1

Var

a:real;

b, c: integer;

begin

b:=0;

a:=1000;

while a<=1500 do

begin

a:=a + (a*0.03) ;

inc (c) ;

end;

write ('Через ', c,'лет ') ;

end.

Написать программу в паскалеВ банк под 3% годовых кладут 1000 рублей. Через сколько лет сумма на вкладе будет 1500 рублей?