С клавиатуры вводится целое число m и натуральное число n (процедура). Найти m DIV n и m MOD n
без использования стандартных операций DIV и MOD (две процедуры).
Важно!!!!! Тип real использовать нельзя!!!!! Решать задачу только через тип longint!!!!! Даю 100 баллов за правильное решение!!!!!
Answers & Comments
Ответ:
var a,b:longint;
procedure v;
begin
read(a,b)
end;
procedure d;
var d:integer;
begin
d:=0;
while a>b do
begin
a:=a-b;
d:=d+1
end;
writeln(d)
end;
procedure m;
begin
while a>b do a:=a-b;
writeln(a)
end;
begin
v;
d;
m
end.