Программа: Игра Угадай число - Turbo Pascal

Формулировка задачи:

Пожалуйста, срочно!((( нужна программа по блок-схеме.

Код к задаче: «Программа: Игра Угадай число - Turbo Pascal»

textual
Var
  x,y,a,b: Integer;
BEGIN
Writeln('Игра "Угадай число".');
Writeln('Введите диапазон (2 числа) Певрое число должно быть меньше второго: ');
Repeat
  Write('Первое число: ');
  Readln(a);
  Write('Второе число: ');
  Readln(b);
  If a>=b Then
  Writeln('Первое число должно быть меньше. Повторите');
until a<b;
y:=Random(b-a+1)+a;
Writeln('Компьютер загадал некоторое число, отгадайте его');
Writeln('Вводите число до тех пор, пока не угадаете');
Repeat
  Readln(x);
  If x>y Then
  Writeln('Ваше число больше');
  If x<y Then
  Writeln('Ваше число меньше');
until x=y;
Writeln('Вы угадали');
Readln
END.

15   голосов, оценка 3.733 из 5


СОХРАНИТЬ ССЫЛКУ