Нажимая на кнопку "Задать вопрос", я даю согласие на обработку персональных данных

Задать вопрос
Задать вопрос
  • помогите с информатикой


    Написать программу,загадывает число, затем сравнивает его 3 раза со случайным сгенерированным числом.​

    • 26 December 2020
    • Ответ оставил: dimb0r22

    var r_1,r_2,r_3,ch : integer;

    begin

           writeln('ch = ');

           readln(ch);

           r_1 = random(50) - 25;  {рандомные числа в районе от -25 до 25}

           r_2 = random(50) - 25;

           r_3 = random(50) - 25;

           writeln('r_1 = ',r_1);

           writeln('r_2 = ',r_2);

           writeln('r_3 = ',r_3);

           if r_1 < ch then  

           begin

                   writeln('r_1 < ch');

           end;

           if r_1 = ch then  

           begin

                   writeln('r_1 = ch');

           end;

           if r_1 > ch then  

           begin

                   writeln('r_1 > ch');

           end;

           if r_2 < ch then  

           begin

                   writeln('r_2 < ch');

           end;

           if r_2 = ch then  

           begin

                   writeln('r_2 = ch');

           end;

           if r_2 > ch then  

           begin

                   writeln('r_2 > ch');

           end;

           if r_3 < ch then  

           begin

                   writeln('r_3 < ch');

           end;

           if r_3 = ch then  

           begin

                   writeln('r_3 = ch');

           end;

           if r_3 > ch then  

           begin

                   writeln('r_3 > ch');

           end;

    end.

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
    На сегодняшний день (25.02.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.
  • Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

    Ответить на вопрос

Последние опубликованные вопросы

Сообщение записанное буквами 32 символьного алфавита содержит 20 символов. Чему равен информационный объём этого сообщения в байтах? Объем видеопамяти для хранения страниц изображения при условии, что разрешающая способность двух с дисплея плана 640*350 пикселей, а количество используемых цветов-16? Комитет можно составить из 3 или 5 судей. Есть 5 кандидатов, точность предсказаний которых приведена в таблице. Составьте ансамбль судей, имеющий наибольшую из возможных точность предсказания. В ан... 16. Шифр кодового замка является двузначным числом. Буратино забыл код, но помнит, что сумма цифр этого числа, сложенная с их произведением, равна самому числу. Напишите все возможные варианты кода... S<13 и не s чётное Получено сообщение, информационный объем которого равен 32 битам. Чему равен этот объем в байтах Каждый переданный кодовый символ может принят ошибочно с фиксированным вероятностью P Решать задачку по этой формуле P(zj/Uk) = P/N-1 при j≠k I-p при j=k В дощечку в ряд вбито 10 гвоздиков, таким образом, получилось 9 последовательных промежутков между ними. Длины промежутков (подряд, слева направо) оказались равны 7, 2, 8, 4, 3, 9, 5, 1, 6. Между н... Кто может подсказать почему не работает секундомер? (не добирает 60 секунд следовательно не переходит на следующую минуту) язык Python import time from tkinter import * from datetime import datetim... Pyhon (Информатика) Решить задачу: На тренировках спортсмен ежедневно пробегает некоторую дистанцию, с каждым днем увеличивая ее на 10%. Составить программу, определяющую по расстоянию, преодоленн... совокупность средств и правил взаимодействия человека с компьютером​ Что такое информатика в ИБ кратко
*{ message }*