Программа на языке программирования авс паскаль. дано два натуральных числа n и m. если одно из них делится на другое нацело, выведите 1, ин

программа на языке программирования авс паскаль............

дано два натуральных числа n и m. если одно из них делится на другое нацело, выведите 1, иначе выведите любое другое целое число. при решении этой задачи нельзя пользоваться условной инструкцией if и циклами

  • uses crt;
    var i,n,m:integer;
    begin
    write('Введите число n: ');
    readln(n);
    write('Ввелите число m: ');
    readln(m);
    i:=n mod m;
    case i of
    0: writeln(1)
    else writeln(2);
    end;
    end.

    Оператор case - это оператор выбора, его нельзя считать циклом или условной конструкцией.