Pascal/Turbo Pascal - Lee un entero N y muestra en pantalla un dibujo como los del ejemplo

   
Vista:

Lee un entero N y muestra en pantalla un dibujo como los del ejemplo

Publicado por larry (9 intervenciones) el 06/01/2014 16:33:56
Lee un entero N y muestra en pantalla un dibujo como los del ejemplo
Ejemplo: N=3

1 2 3
2 3 3
3 3 3
n=4

1 2 3 4
2 3 4 4
3 4 4 4
4 4 4 4
n=5

1 2 3 4 5
2 3 4 5 5
3 4 5 5 5
4 5 5 5 5
5 5 5 5 5
no se como hacerlo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Lee un entero N y muestra en pantalla un dibujo como los del ejemplo

Publicado por ramon (2072 intervenciones) el 07/01/2014 11:19:27
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
{A ver si esto te sirve}
 
 program presenta;
 uses
    crt;
 var
   num : integer;
   p, t, cont : integer;
 begin
    clrscr;
    write('   Entre Numero : ');
    readln(num);
    t := 1;
   repeat
    for cont := t to num do
    begin
        write(' ',cont);
    end;
    for p := 2 to t do
    write(' ',cont);
    t := t + 1;
    writeln;
   until t > num;
    readkey;
 end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar