Сзади нужно поднести большой магнит или приклеять
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('Выполнение деления невозможно, т.к. знаменатель равен нулю. Перезапустите программу для подбора других значений');
<span>end.</span>
Верного ответа из данных нет. В D2 должно выходить 3 для верной диаграммы.
Текстовый файл (формата: .txt)
Инструкция