Vanilla 1.1.5a jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
program barabara;
uses crt;
var a,b,c,x:integer;
begin;
clrscr;
writeln('Podaj cyfre z zakresu 0-9');
readln(a);
randomize;
x:=0;
for b:=1 to 40 do
begin
c:=random(10);
If c=a then
begin
x:=x+1;
textcolor(green);
writeln(b,'. ',c)
end
else
begin
Textcolor(blue);
writeln(b,'. ',c)
end;
end;
textcolor(white);
writeln;
writeln('Podana liczba pada: ',x,' razy');
if c=a then
writeln('Pozycje wylosowanych liczb to: ',b);
readln;
end.
Od 1 do 1 z 1