Question

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

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.