profile
Опубликовано 5 лет назад по предмету Информатика от vilpg

Даны целые числа x,y. В первой строке вывести остаток от деления первого числа на второе, а во втором-остаток от деления второго на первое

  1. Ответ
    Ответ дан fedrfedr

    var

     x, y: Integer;

    begin

     Randomize;

     WriteLn ('Введите x и y: ');

     ReadLn (x, y);

     Writeln ('Остаток от деления x на y = ', x mod y);

     Writeln ('Остаток от деления y на x = ', y mod x);

    end.