Василиса прекрасная сказала Кощею бессмертному, что выйдет за него замуж тогда, когда у...

Question

Василиса прекрасная сказала Кощею бессмертному, что выйдет за него замуж тогда, когда у него будет 5000 сундуков с золотом, сейчас у него 3000 сундуков, каждый год кол-во сундуков увеличивается на 20%. Через, сколько лет Василиса выйдет замуж?
Паскаль. С использованием while

Answer 1

Var a,s:integer;
begin
a:=3000
while a<5000 do begin<br>a:=a+(a*0,2);
s:=s+1;
end;
print(s);
end.

Comments

Ошибочка a:=a+(a*0.2); запятую поставил вместо точки