Философов
4 год назад
Программирование . Pascal abc. На вход программе подаются два целых числа m и n, по модулю не превосходящие 10 в 6 степени. Если m делится на n или n делится на m, то требуется вывести 1, в противном случае - случайное число, кроме единицы.
ОТВЕТЫ
Teija Anni
Oct 24, 2020
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.
Запусти бонус в приложении и скажи что там:
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 - не запустится.
467
Смежные вопросы:
