Ответ: var n,m,k:integer;beginwrite(‘n = ‘); readln(n);write(‘m = ‘); readln(m);k:=(m-1) div n +1;writeln(‘k = ‘,k);end.Пример:n = 700m = 750k = 2