Question

DAU COROANA!!!!
O banca de o dobanda anuala de p%.
a) Ce suma de bani va avea dupa x ani un client care a depus So lei? (p,x, So : sunt date).
b) Peste cati ani un client care a depus So lei va avea pe cont Sf lei?(p,x,So si Sf :sunt date).
UN PROGRAM PASCAL!!!

Answer 1

Program Augustin;
var
x,so,p,sf:integer;
a,b,c:real;
begin
Writeln('Introdu "x" ani');
readln(x);
Writeln('Introdu "so" lei');
readln(so);
Writeln('Introdu "p" procente anual');
readln(p);
a:=p*so/100;
a:=a+so;
b:=a*x;
c:=b;
Writeln('Suma de bani dupa ',x,' ani= ',round(b));
Writeln('Introdu "sf" lei pe care trebuie sa-i aiba');
readln(sf);
b:=b/3;
a:=sf/b;
Writeln('Va avea banii peste ',round(a),' ani');
a:=round(a)-round(x);
Writeln('Mai are nevoie de ',round(a) ,' ani petru a stringe banii');
readln;
end.