Anonymní profil peter – Programujte.com

A tvuj kod je a co ti v nem presne nejde?

"fakt už nevím"
Dobra. A na cos teda prisla. Neco vedet preci musis. Pak te treba nasmeruji lide kam dal. Si myslim, ze tohle si nakreslit asi nebude takovy problem, kdyz tam neni ani na druhou, ne?

http://www.soom.cz/clanky/8--Pascal-pro-zacatecniky-7-Strukturovane-datove-typy

 Nejspis to jde udelat ruzne, ja uz pascal radu let nepouzil. Vybral jsem si const, protoze tam byl priklad, jak zadat serii cisel po sobe. To ostatni bych musel googlovat.
type y = (1,3,5); x:y;
const x = [1,3,5];
x: set of byte; x:= [1,3,5];
x: array[0..36] of byte; x:= (1,3,5)

const cisla = [1,3,5,15];
begin
  c := 5;
  sazka := 9;
  vyhra := 0;
  if ((sazka=9) and (c in cisla)) then begin vyhra := 6; end;
  writeln(c, sazka, vyhra);
end.