[s.de.be]

المشاركة الأصلية كتبت بواسطة batoul1994

[C

ENTER]

salem mes chers programmateurs svp aidez moi f l'exercice hada G besoin de votre solution turbo pascal 1.5 alr :
une librairie offre une reduction sur achat des livres informatique dans les conditions suivantes:
==> si le nombre de livres est intérieur de 3livre, il n' ya pas de réduction
==>si le nombre des livres acheté s est supérieures de 05 livres et si le prix d'achats de ces livres est superieur de 6500 la reduction est de 70%
_ ecriver un programme qui calcule le net apayer sachant que :
net a payer =prix d'achat_prix de reduction==>
==>prix de reduction =(prix d'achat*70)/100
yaaa svp svp aidez moi psk c mon controle
awel mara ncharek m3akom svp matrodonich[/CENTER]

bonjour, un petit programme corespond à la solution de votre problème

program total;

var prix,reduction,prixachat:real;
nombre,i:integer;
begin
prixachat:=0;
reduction:=0;
writeln('entrer le nombre de livre achetés');
readln(nombre);
for i:=1 to nombre do
begin
writeln('entrer le prix du livre n',i);
readln(prix);
prixachat:=prixachat+prix;
end;
if(nombre>3)then
begin
reduction =(prixachat*70)/100;
end
prix:=prixachat-reduction
;
writeln('le net à payer est de',prix);
end.