помогите ,умоляю .решите задачу по информатике через begin1) случайным образом подбираются

Помогите ,умоляю .решите задачку по информатике через begin

1) случайным образом подбираются два числа в случайном диапазоне. при их равенстве выводится на экран с задержкой подходящее текстовое сообщение, при их неравенстве - рандомятся ещё два числа и выводятся на экран в одной строке.

Задать свой вопрос
Анжелика Марцыновская
Что означает это ваше "через begin", код программки всегда начинается с слова begin...
Денчик Щепель
Что значит это ваше "через begin", код программки всегда начинается с слова begin...
Геннадий Подолякин
Что означает это ваше "через begin", код программки всегда начинается с слова begin...
1 ответ
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)


begin
  var (a,b):=(Random(0,10),Random(0,10));
  if a=b 
    then Println(a,'=',b)
    else Println(Random(0,10),Random(0,10));
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт