Az ötöslottó nyerőszámainak kitalálása!
-
#7
var a,b,c,d,e: byte;
begin
randomize;
a:=random(90)+1;
while b<>a do
b:=random(90)+1;
while c in [a,b] do
c:=random(90)+1;
while d in [a,b,c] do
d:=random(90)+1;
while e in [a,b,c,d] do
e:=random(90)+1;
write(a,' ',b,' ',c,' ',d,' ',e);
end.
kb