A voir également:
- Solution d'un exercice de turbo pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Driverpack solution - Télécharger - Divers Utilitaires
- My sims ds solution ✓ - Forum Jeux vidéo
2 réponses
program SansNom;
var i,s:integer;
begin
i:=1; s:=1;
while (i<100) do
begin
i:=i+2; // 1, 3, 5, 7...
s:=s+i; // 1, 1+3, 1+3+5, 1+3+5+7...
end;
writeln(s);
writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.
voila le program à peyt pres:
program coeur;
uses wincrt;
var a,b,c :integer ;
begin
reapat
write (' entrer svp le nombre A ( a doit etre inferieru à 100 ):');readln (a);
until (a < 100 ) and (trunc (a/2) = a/2 ) ; ;
reapat
write (' entrer svp le nombre B ( a doit etre inferieru à 100 ):');readln (b);
until (b < 100) and (trunc (b/2) = b/2 ) ;
writeln ('le reslutat est :'s:=a+b) ;
end.
program coeur;
uses wincrt;
var a,b,c :integer ;
begin
reapat
write (' entrer svp le nombre A ( a doit etre inferieru à 100 ):');readln (a);
until (a < 100 ) and (trunc (a/2) = a/2 ) ; ;
reapat
write (' entrer svp le nombre B ( a doit etre inferieru à 100 ):');readln (b);
until (b < 100) and (trunc (b/2) = b/2 ) ;
writeln ('le reslutat est :'s:=a+b) ;
end.
