Program - Hra Zápalky :)

Hra zápalky, ktorú hrajú dvaja hráči

Program napísaný v jazyku Pascal.

program Zapalky;

var
odobrane,PZ,berie:integer;

begin
writeln ('Ahojte 2 hraci. Hrajete hru zapalky. Mate ich 15.');
writeln ('Odobrat mozete 1, 2 alebo 3. Kto vezme poslednu vyhral.');
PZ:=15;
berie:=0;

repeat
berie:=berie+1;
if (berie/2)<>int(berie/2) then begin
writeln ('Prvy hrac. Kolko beries?');
readln (odobrane);
PZ:=PZ-odobrane;
end;
if (berie/2)=int(berie/2) then begin
writeln ('Druhy hrac. Kolko beries druhy hrac?');
readln (odobrane);
PZ:=PZ-odobrane;
end;
writeln ('Na stole ostalo ',PZ,' zapaliek.');
if (pz=1) or (pz=2) or (pz=3) then begin
writeln('Hrac, ktory je na tahu vyhral.');
pz:=0;
end;
until pz=0;
readln;
end.

Hodnotenie užitočnosti článku:

• ← Program - Hanojské veže :)
• Program - Kombinačné číslo :) →