Răspuns :
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.
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.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!