Pascal/Turbo Pascal - Programa en Pascal

   
Vista:
Imágen de perfil de Rinaldy

Programa en Pascal

Publicado por Rinaldy (1 intervención) el 01/03/2015 20:51:21
Diseña un programa que permita imprimir 5 números aleatorios en el rango 1-50 y que cada número generado sea par.
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

Programa en Pascal

Publicado por ramon (2072 intervenciones) el 01/03/2015 22:21:19
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
26
27
28
29
30
31
32
33
34
35
36
37
38
{Espero esto sirva}
 
 program numeros;
 uses
    crt;
  var
    t, u, x, num : integer;
    misnum : array[1..5] of integer;
 
  begin
      clrscr;
      randomize;
      x := 1;
      u := 1;
    repeat
       num := random(50) + 1;
       if x = 1 then
       begin
       if num mod 2 = 0 then
       begin
       misnum[u] := num;
       u := u + 1;
       end;
       end
     else
        begin
           if num mod 2 = 0 then
           begin
             misnum[u] := num;
             u := u + 1;
            end;
        end;
        x := x + 1;
    until (u > 5) or (x > 50);
    for t := 1 to 5 do
    write('   ',misnum[t]);
    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