Sayısal loto programını kullanıcının belirlediği kolon sayısına göre yapan progr

Sayısal loto programını kullanıcının belirlediği kolon sayısına göre yapan program


uses crt;
var
i,a,x,kolon:integer;
begin
clrscr;
randomize;
writeln('kaçkez oynamak istersiniz:');readln(kolon);
for x:=1 to kolon do
begin
i:=1;
while i<7 do begin
i:=i+1;

a:=random(49);
write(a:6); end;
writeln('   ');
end;
readln;
end.


Linkback: https://www.buyuknet.com/sayisal-loto-programini-kullanicinin-belirledigi-kolon-sayisina-gore-yapan-progr-t8638.0.html