Программирование . Pascal abc. На вход программе подаются два целых числа m и n, по модулю не превосходящие 10 в 6 степени. Если m делится на n или n делится на m, то требуется вывести 1, в противном случае - случайное число, кроме единицы.
Условный оператор использовать можно?
да
Эту задачу сотни раз решали
Вы не умеете пользоваться поисковиком, или Вам лень?)
я изменил конец задачи , если что
так что такую задачу сотни раз не решали
Var m, n: integer; begin randomize; read(m, n); if(m mod n = 0) or (n mod m = 0) then write(1) else write(random(99)+2); end. Запусти бонус в приложении и скажи что там:
В Pascal ABC - не запустится.
Да только на PascalABC.NET(
В задании ясно указан язык - исправляйте.
Сейчас нет такого языка PascalABC есть freepascal , object pascal, turbo pascal, Delphi,pascalABC.NET.Так что скорее всего в условии подразумевался именно pascalABC.NET.
Глупо говорить, что этого нет, когда по этому языку каждый день тут задачки задают\\\