Из операторов составьте программу для решения задачи: Даны числа M и N (M>N). Получить частное от деления М на N не используя операцию деления. var M, N, Ch: real; begin read(M, N); Ch := 0; while M >= N do begin M := M - N; Ch := Ch + 1; end; Write(Ch) end.

Задание

Из операторов составьте программу для решения задачи:

Даны числа M и N \(M\\gt N\). Получить частное от деления М на N не используя операцию деления.

var
M, N, Ch: real;
begin
read\(M, N\);
Ch := 0;
while M >= N do
begin
M := M - N;
Ch := Ch + 1;
end;
Write\(Ch\)
end.