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 pentru vizita pe platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Așteptăm cu entuziasm să reveniți și vă invităm să ne adăugați la lista de favorite!