Игра на угадай число

Игра на угадай число

Тема в разделе "Темы со старого форума", создана пользователем Бэкап, 05.05.2015.

Загрузка...
Ответов: 0 Просмотров: 290 Ответить в теме
Воспользуйтесь функцией автоматического продвижения темы для увеличения числа просмотров темы, продаж платного контента и узнаваемости Вашего бренда. Услуга продвижения действует на протяжении 3-х дней и стоит всего 50 STF Wallet.

Продвинуть тему
  1. Бэкап
    [REPLY] program game;
    uses crt;
    Var i,a,n:integer;
    begin
    clrscr;
    randomize;
    a:=random(10);
    n:=0;
    writeln('Отгадай число от 0 до 9');
    repeat
    writeln('Пробуй.Попыток: ',2-n);
    readln(i);
    Writeln('Жди...');
    delay(2000);
    if (i<> a) then
    begin
    n:=n+1;
    if (i>a) then writeln('Число меньше')
    else writeln('Число больше');
    end;
    until ((i=a) or (n=2));
    textcolor(2);
    if (i=a) then writeln('Вы выйграли');
    if (i<>a) then writeln('Вы проиграли');
    if (i<>a) then writeln('Правильное число ',a);
    readln;
    end. [/HIDE-REPLY]
     
    05.05.2015 Сообщений: Симпатий:
В этой теме всего одна страница
Вам, как гостю, ограничены возможности взаимодействия с темами. Пройдите бесплатную регистрацию и откройте для себя море возможностей.