Bonjour,

Ce bout de programme permet de lire un mot et de nous l'afficher sous forme d'un triangle

Exemple:

en entrée on donne le mot: regarder

en sortie on aura

r

re

reg

rega

regar

regard

regarde

regarder

program triangle;

var chaine,lettre:String;
i:integer;
begin
lettre:='';
readln (chaine);
if(length(chaine)>=3) then
begin
for i:=1 to length(chaine) do
begin
lettre:=lettre+chaine[i];
writeln(lettre);
end
end else
writeln('entrer un mot qui dépasse deux lettres');
end.

Retour à l'accueil