Кости, Цифры и Тест Опции

[WeXoN]

Привет всем я тут с недавного времени, вот хочю попросить у вас помощи ...
1. Кости. Составить программу каторая иметирует кидание костей 2ух учястников.
Вобщем надо чтоб запуская программу генерировалось число от 2 до 12 и в конце выводился результат кто выйграл, 1ый учястник или 2ой учястник.

Сообщение отредактировано: klem4 - 10.11.2005 19:15

[klem4]

Ну ты бы хоть учебник почитал ...

uses crt;
var
   first, second : byte;
begin
   clrscr;
   randomize;
   writeln('Нажмите <Enter> для хода игрока № 1');
   readln;
   first := random(11) + 2;
   writeln('Перавй игрок набрал ', first, ' очков');
   writeln('Нажмите <Enter> для хода игрока № 2');
   readln;
   second := random(11)+2;
   writeln('Второй игрок набрал ',second,' очков');
   writeln;
   if first>second then
    writeln('Победил игрок № 1')
   else
    if first<second then
    writeln('Победил игрок № 2')
   else
    writeln('Ничья  ');

   readln;
end.