QUELQUES EXERCICES SIMPLE 0 FAIRE

************
Effectuez le tournage à la main du programme suivant et indiquez-en le résultat.
PROGRAM TEST;
VAR q : INTEGER;
BEGIN
FOR q := 1 TO 10 DO
WRITELN(15, ' FOIS ', q, ' = ', 15*q)
END.

************
Effectuez le tournage à la main du programme suivant avec n = 10 et indiquez-en le résultat
PROGRAM Rebours;
USES FORMS;
VAR n : INTEGER;
BEGIN
WRITE('valeur initiale : ');
READLN(n);
WHILE n > 0 DO
BEGIN
n := n – 1;
WRITELN('LA VALEUR DE N EST : ', n);
END;
WRITELN('Fin')
END.

************
Corrigez les éventuelles erreurs de syntaxe du programme suivant qui présente un
exercice de calcul mathématique.
PROGRAM Reponse
VAR resultat : INTEGER;
BEGIN
REPEAT
WRITE(Combien font 14 fois 32?);
READLN('resultat');
UNTIL resultat = 448;
WRITELN('C'est exact!')
END.

************