Даны целые числа x,y. в первой строке вывести остаток - вопрос №9809037 от ssshhh1 24.11.2020 23:36

Question

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

ssshhh1 · Answer

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.