Даны целые числа x,y. в первой строке вывести - вопрос №9809262 от kozaryk463 03.04.2020 05:04

Question

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

kozaryk463 · 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.