Pascal/Turbo Pascal - Pascal, alguna ayuda para este procedimiento

 
Vista:
sin imagen de perfil

Pascal, alguna ayuda para este procedimiento

Publicado por Federico (10 intervenciones) el 11/11/2013 17:03:37
Hola gente alguna ayuda con:

Dado un número entero D, escribir un procedimiento que muestre lo siguiente:
Si D=5, debe mostrar: 1 2 3 4 5 4 3 2 1
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

Pascal, alguna ayuda para este procedimiento

Publicado por ramon (2158 intervenciones) el 11/11/2013 18:54:40
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{Mira esto}
 
 program numeros;
 uses
    crt;
  var
    c, num : integer;
 
  begin
     clrscr;
     write('   Entre Un Numero Del 1 Al 9 : ');
     readln(num);
     writeln;
     write('  ');
     for c := 1 to num do
     write(' ',c);
     for c := 1 to num - 1 do
     write(' ',num - c);
     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