Question

Программирование . Pascal abc. На вход программе подаются два целых числа m и n, по модулю не превосходящие 10 в 6 степени. Если m делится на n или n делится на m, то требуется вывести 1, в противном случае - случайное число, кроме единицы.

Answer 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.

Запусти бонус в приложении и скажи что там:

a3344f363be49a521666d1d9f1466034.pas

Answer 2

В Pascal ABC - не запустится.

Answer 3

В задании ясно указан язык - исправляйте.

Answer 4

Сейчас нет такого языка PascalABC есть freepascal , object pascal, turbo pascal, Delphi,pascalABC.NET.Так что скорее всего в условии подразумевался именно pascalABC.NET.

Answer 5

Глупо говорить, что этого нет, когда по этому языку каждый день тут задачки задают\