Нужно решить эту с оператора "while", ! в 1626 году индейцы продали остров манхэттен за 20 долларов. если бы эти деньги были помещены в банк на текущий счет и ежегодный прирост составлял 4%, какова была бы стоимость капитала в 2003 году?
s:=20; y:=1626; writeln('Сейчас 1626 год и я положил в банк: ', s); while y<2003 do begin s:=(s+(s*0.04)); y:=(y+1); writeln(s,'$ В банке на ', y, ' год'); end; end.
var
s: real;
y: integer;
begin
s:=20;
y:=1626;
writeln('Сейчас 1626 год и я положил в банк: ', s);
while y<2003 do
begin
s:=(s+(s*0.04));
y:=(y+1);
writeln(s,'$ В банке на ', y, ' год');
end;
end.
Итого: 52795743.6290571$ В банке на 2003 год