Камень, ножницы, бумага: различия между версиями
Нет описания правки |
>Профессор абсурдологии |
||
| Строка 100: | Строка 100: | ||
var user-loser, PC: sign; | var user-loser, PC: sign; | ||
money_for_Billy: boolean; | money_for_Billy: boolean; | ||
i: integer; | |||
BEGIN | BEGIN | ||
money_for_Billy:=false; {It's not false money, but it's no money at all} | money_for_Billy:=false; {It's not false money, but it's no money at all} | ||
| Строка 105: | Строка 106: | ||
read(user-loser); | read(user-loser); | ||
repeat | repeat | ||
write( | write(' - '); | ||
case user-loser of | case user-loser of | ||
Rock: PC:=Paper; | Rock: PC:=Paper; | ||
| Строка 113: | Строка 114: | ||
begin | begin | ||
money_for_Billy:=true; | money_for_Billy:=true; | ||
for i:=1 to 30 do writeln ('Runtime error 404'); {conspiracy!} | |||
read(user-loser); | read(user-loser); | ||
case user-loser of | case user-loser of | ||
| Строка 122: | Строка 124: | ||
end; | end; | ||
writeln(PC); | writeln(PC); | ||
read(user-loser); | if money_for_Billy=false then read(user-loser); | ||
until (user-loser=Enough!_I_give_up!) or (money_for_Billy=true); | until (user-loser=Enough!_I_give_up!) or (money_for_Billy=true); | ||
if money_for_Billy=true then write('Congratulations! You win!'); | if money_for_Billy=true then write('Congratulations! You win!'); | ||