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

YarSmith YarSmith    3   06.10.2019 09:03    1

Ответы
Piachenka150 Piachenka150  09.10.2020 23:17

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика