Написать программу "Угадай число". Программка загадывает рандомное число(от 0 до 100)

Написать программку "Угадай число". Программка загадывает рандомное число(от 0 до 100) а пользователь обязан отгадать его. Программа должна давать подсказки, больше либо меньше загаданное число. На паскале пожалуйста

Задать свой вопрос
1 ответ

program znanija;

var

a,c:integer;

begin

a:=Random(0,100);

while c lt;gt; a do  

begin

readln(c);

if cgt;a then

writeln('Число больше чем загаданное');

if clt;a then

writeln('Число меньше чем загаданное');

if c=a then

writeln('ПОБЕДА!');

end;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт