Информатика


Составить программу, которая запрашивает число пользователя и сравнивает его с рандомным числом. Оба числа в диапазоне до 15



Срочно!!!! Даю 50 баллов

Пожалуйста, конкретизируйте, и я Вам объясню и помогу. Если что-то не понятно - говорите строчку или кусок кода.

Просто поинтересуюсь. Разве random() работает нормально без randomize() перед ним?

Я компилирую на PascalABC, у меня нормально.

Ааа, понял. Больше от IDE зависит. В онлайн-компиляторе randomNumber := Random(16); выдает всегда одно число: 8

Понятно. Я код в онлайн-компиляторах проверяю лишь на наличие ошибок, чтобы компилировалось и на PascalABC.NET, и на обычном Pascal. Даже не думал про псевдорандом, поскольку делаю буквально 2-4 теста.

1. var
2.  randomNumber, inputNumber: integer;
3. begin
4.  Readln(inputNumber);
5.  randomNumber := Random(16);
6.  if inputNumber = randomNumber then
7.    Writeln('Числа ', inputNumber, ' и ', randomNumber, ' равны')
8.  else
9.    Writeln('Числа ', inputNumber, ' и ', randomNumber, ' не равны');
10. end.