-->
-->
Soit N un entier compris entre 5 et 20.
On se propose d’afficher l’histogramme ci-dessous.
Exemple, si N=6
1
2 3
4 5 6
7 8 9 1
2 3 4 5 6
7 8 9 1
2 3
program histogramme;
uses wincrt;
var n,k,j,i:integer;
begin
repeat
writeln('saisir un entier naturel compris entre 5 et 20');
readln(n);
until (n>=5) and (n<=20);
clrscr;
k:=1;
for i:=1 to n do
begin
for j:=1 to i do
begin
write(k);
k:=k+1;
if k=10 then
k:=1;
end;
writeln;
end;
end.
