Bonjour,
Pourquoi ce programme ne marche-t-il pas avec ces valeurs :
s= 5000 k=2000 j=24
et comment résoudre le problème ?
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
program e;
uses wincrt;
var i,j,k,s:integer;
begin
 write('Entrer une somme: ');
 readln(s);
 write('Entrer somme a ajouter chaque année puis nombre d''année: ');
 readln(k,j);
 for i:=1 to j do
 s:=s+k;
 writeln('La somme sera de : ',s);
 readln;
end.