Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- п»їprogram Project1;
- var d, m, n, Kmax, b, k:integer;
- f, f0:text;
- begin
- assign (f, 'Input.txt');
- reset (f);
- read (f, d, m);
- close (f);
- assign (f0, 'Output.txt');
- rewrite(f0);
- For n:=1 to m do
- Begin
- k:=1; Kmax:=k;
- While true do
- Begin
- b:=2 * n - d*(k - 1)*k;
- If b <= 0 then break;
- If (b mod (2*k) = 0) then Kmax:=k;
- Inc(k);
- end;
- write (f0, KMax, ' ');
- end;
- close(f0);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement