Question

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

Answer 1

Var
m, n: integer; r: real;
begin
n:=random(-9999,9999);
m:=random(-9999,9999);
if m<>0 then   begin
r:=((n)mod(m));
writeln(r);    end
else writeln('Выполнение деления невозможно, т.к. знаменатель равен нулю. Перезапустите программу для подбора других значений');
end.