Răspuns :
var p,x,s,k,n: real;
Begin
writeln('Introduceti pretul:');
readln(p);
writeln('Introduceti cantitatea:');
readln(x);
writeln('Introduceti suma detinuta:');
readln(s);
k:=x*p;
n:=s/p;
if (s>=k) then writeln('Suma este suficienta;')
else writeln('Suma nu este sufienta; ' 'Dar puteti procura: ',trunc(n), ' produse' );
End.
Begin
writeln('Introduceti pretul:');
readln(p);
writeln('Introduceti cantitatea:');
readln(x);
writeln('Introduceti suma detinuta:');
readln(s);
k:=x*p;
n:=s/p;
if (s>=k) then writeln('Suma este suficienta;')
else writeln('Suma nu este sufienta; ' 'Dar puteti procura: ',trunc(n), ' produse' );
End.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!