var k, n, c, l, g, b: integer;
begin
readln(k);
readln(n);
c := n div k;
l := n - (k*c);
g := c + 1;
b := (k*g) - n;
if b = 1000 then exit;
end.
Объяснение:
var k, n, c, l, g, b: integer;
begin
readln(k);
readln(n);
c := n div k;
l := n - (k*c);
g := c + 1;
b := (k*g) - n;
if b = 1000 then exit;
end.
Объяснение: