For
For c:=1 to 5 do
begin
write('aa');
write('BB');
end;
Al ejecutarse visualiza:
aaBBaaBBaaBBaaBBaaBB
For c:= 5 downto 1 do
begin
write('c');
writeln
end;
Al ejecutarse visualiza:
5
4
3
2
1
For m:= 1 to 10 do
Begin
Fot n:= 10 downto 2 do
writeln(m,n)
end.
No hay comentarios:
Publicar un comentario