Vytvorené: 23. 04. 2014 Tlačiť
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.
![]() |
· Simulácie z fyziky· O Slovensku po slovensky· Slovenské kroje· Kurz národopisu· Diela maliarov· Kontrolné otázky, Domáce úlohy, E-testy - Priemysel· Odborné obrázkové slovníky· Poradňa žiadaného učiteľa· Rýchlokurz Angličtiny. Rozprávky (v mp3)· PREHĽADY (PRIBUDLO, ČO JE NOVÉ?)Seriály:· História sveta (1÷6)· História Slovenska (1÷5)· História módy (1÷5).
Členstvo na portáli
Poznámka pre autora
Copyright © 2013-2024 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady |