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

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

Question

Харлам

22 июня, 02:16

+1

Ответы (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 рублей?