Advertisement
Guest User

Untitled

a guest
Jan 15th, 2019
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1. п»їprogram Project1;
  2. var d, m, n, Kmax, b, k:integer;
  3. f, f0:text;
  4. begin
  5. assign (f, 'Input.txt');
  6. reset (f);
  7. read (f, d, m);
  8. close (f);
  9. assign (f0, 'Output.txt');
  10. rewrite(f0);
  11. For n:=1 to m do
  12. Begin
  13. k:=1; Kmax:=k;
  14. While true do
  15. Begin
  16. b:=2 * n - d*(k - 1)*k;
  17. If b <= 0 then break;
  18. If (b mod (2*k) = 0) then Kmax:=k;
  19. Inc(k);
  20. end;
  21. write (f0, KMax, ' ');
  22. end;
  23. close(f0);
  24. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement