помогите ,умоляю .решите задачу по информатике через begin
1) случайным образом подбираются два числа в случайном диапазоне. при их равенстве выводится на экран с задержкой соответствующее текстовое сообщение, при их неравенстве - рандомятся ещё два числа и выводятся на экран в одной строке.
Ответы на вопрос
Ответил Giammy
0
//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.
//Версия 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.
Новые вопросы
История,
2 года назад
Математика,
2 года назад
Химия,
8 лет назад
Алгебра,
8 лет назад
Физика,
9 лет назад