Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления.
Program gt; var n,k,t:integer; begin read(n,k); t:=0; while n>=k do begin n:=n-k; t:=t+1; end; writeln(t); end.