solution d'un exercice de turbo pascal

Question

Bonjour,
ecrire un programme qui permet de calculer la somme des entiers naturels impairs inferieurs a 100

KX · Accepted Answer

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.

Stormovik_il2 · Answer

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.

Solution d'un exercice de turbo pascal

2 réponses

Discussions similaires

Newsletters