Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2017
118
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.19 KB | None | 0 0
  1. var
  2. n,i,k:integer;
  3. begin
  4. readln(n,k);
  5. for i:= 1 to n-1 do
  6. begin
  7. if (i mod k=0) then
  8. write('*')
  9. else
  10. write(i);
  11. write(#32);
  12. end;
  13. if ((n mod k) =0) then
  14. write('*')
  15. else
  16. writeln(n);
  17. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement