Меню сайта

Задача №32

Угадывание целых чисел.

uses crt-

varnumber,partner:integer-

label 1-

begin-

clrscr-

writeln(‘Первый игрок, введите число’)-

readln(number)-

clrscr-

writeln(‘Второй игрок, ваш ход’)-

1:

readln(partner)-

IF partner &gt-number THEN

-begin

-writeln (‘меньше’)- GOTO 1-

-end-

IF partner &lt-number THEN

-begin

-writeln (‘больше’)- GOTO 1-

-end-

IF partner = numberTHEN

-begin

-writeln (‘Вы угадали’)- halt-

-end-

end.

Категория: Разветвляющиеся программы | Дата: 03.01.13

Меню раздела
Блок