-
Lenguaje
Pascal
-
Descripción
Imprimir 5 números aleatorios.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
2
3
4
5
6
7
8
9
10
11
12
13
14
program _5NumerosAleatorios;
uses crt;
var i, numero : integer;
begin
randomize;
for i:=1 to 5 do
begin
writeln ('PROCESO ', i);
numero := random(65536)-32768;
writeln ('Valor de numero: ', numero);
writeln;
end;
end.
uses crt;
var i, numero : integer;
begin
randomize;
for i:=1 to 5 do
begin
writeln ('PROCESO ', i);
numero := random(65536)-32768;
writeln ('Valor de numero: ', numero);
writeln;
end;
end.