Triangle d'etoiles
hiba125
Messages postés
6
Statut
Membre
-
tarek_dotzero Messages postés 834 Statut Membre -
tarek_dotzero Messages postés 834 Statut Membre -
comment je peux faire ceci avec le language pascal.
voila ma solution mais elle n'etait pas vraie avec tous les 'n' je ne sais pas pourquoi??
program untitled;
uses crt;
var
i ,j,n: byte;
p:string;
BEGIN
readln (n);
p:='*';
for i:=1 to n do
begin
for j:=1 to i-1 do
begin
writeln(p);
p:=p+('*');
end;
end;
end.
merci!!
voila ma solution mais elle n'etait pas vraie avec tous les 'n' je ne sais pas pourquoi??
program untitled;
uses crt;
var
i ,j,n: byte;
p:string;
BEGIN
readln (n);
p:='*';
for i:=1 to n do
begin
for j:=1 to i-1 do
begin
writeln(p);
p:=p+('*');
end;
end;
end.
merci!!
