- Регистрация
- 8 Авг 2018
- Сообщения
- 380
- Лучшие ответы
- 0
- Репутация
- 74
Здравствуйте, уважаемые пользователи Pawno-Info! Делюсь с Вами игрой - Кости!
По всем вопросам, или ошибками с компиляцией, просьба обращаться ко мне в личные сообщения на форуме.
PHP:
program kosti;
var
a,b: integer;
c,d,y,k: string;
Begin
writeln('Игра <<Кости>>, успешно активирована.');
writeln('======================');
writeln('Игрок 1, время придумать игровой NickName');
readln(y);
writeln('Игрок ',y, ' Вы успешно зарегистрировались в системе');
writeln('======================');
writeln('Игрок 2, время придумать игровой NickName');
readln(k);
writeln('Игрок ',k, ' Вы успешно зарегистрировались в системе');
writeln('======================');
writeln(y,', Ваш ход, /dice - кинуть кости');
readln(c);
a:=random(12);
writeln('Выпало: ', a);
writeln('======================');
writeln(k,'. Ваш ход, /dice - кинуть кости');
readln(d);
b:=random(12);
writeln('Выпало: ', b);
writeln('======================');
if a>b then writeln('Игрок ', y,' одержал победу!');
if a<b then writeln('Игрок ',k, ' одержал победу!');
end.
Последнее редактирование: