ИнформатикаСоставить программку, которая запрашивает число пользователя и сопоставляет его с

Информатика


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



Безотлагательно!!!! Даю 50 баллов

Задать свой вопрос
1 ответ
  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.
Гарновик Евгений
Мне не очень понятно. Я 8 класс
Антонина Ойгенблик
Что Для вас не понятно? Объявляются две целочисленные переменные и инициализируются (даются имена) как inputNumber (введёное число) и randomNumber (случайное число)
Кира Гнусаева
На 4 строке мы запрашиваем inputNumber, на 5 строке генерируем случайное число от 1 до 15 (я написал 16, поэтому что функция отдаёт случайное число от 0 до n - 1, где n - число, которое мы передаём в функцию)
Daniil Ozmitel
На 6 строке мы просто сопоставляем эти числа и выводим
Aleksandr Zaloguev
Пожалуйста, конкретизируйте, и я Для вас объясню и помогу. Если что-то не понятно - разговариваете строчку или кусочек кода.
Виктор Садовчук
Просто поинтересуюсь. Разве random() работает нормально без randomize() перед ним?
Nelli Ostrokostova
Я компилирую на PascalABC, у меня нормально.
Iljushka Gapasov
Ааа, сообразил. Больше от IDE зависит. В онлайн-компиляторе randomNumber := Random(16); выдает всегда одно число: 8
Степа Фаракос
Понятно. Я код в онлайн-компиляторах проверяю только на наличие ошибок, чтоб компилировалось и на PascalABC.NET, и на обыкновенном Pascal. Даже не размышлял про псевдорандом, так как делаю дословно 2-4 теста.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт