A voir également:
- Programme
- Programme demarrage windows 10 - Guide
- Programme démarrage windows 10 - Guide
- Fichier ouvert dans un autre programme - Guide
- Desinstaller un programme - Guide
- Programme bonjour c'est quoi ✓ - Forum Logiciels
1 réponse
Bonjour,
Essaye avec ça
Essaye avec ça
program sejour;
uses crt;
var
A,B,C,D,E:real;
S:string;
begin
clrscr;
write('Donner le nombre de nuits:');
readln(A);
write('Donner le prix de nuit dans lhotel:');
readln(B);
if A=1 then
begin
str(B:8:2,S);
write('le prix est:',S);
end;
if A>1 then
begin
C:=(B*25)/100;
D:=A*B;
E:=D-C;
str(E:8:2,S);
write('le prix est :',S);
end;
readln;
end.
17 avril 2008 à 16:43