Question

Sa se creeze un program pascal : fie dat pretul P a unui obiect. Se stie ca se procura X obiecte. Sa se determine daca suma detinuta S e suficienta.
Daca suma nu e suficienta se determina cate obiecte se pot procura de suma S

Answer 1

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.