fork download
copy 
  1. program pola3;
  2. var
  3. n,k,i: integer;
  4. begin
  5. readln(n, k);
  6. for i:=1 to n do
  7. begin
  8. if (i mod k = 0) and (i<>n) then write('* ')
  9. else if (i mod k = 0) and (i=n) then write('*')
  10. else if (i mod k <> 0) and (i=n) then write(i)
  11. else write(i, ' ');
  12. end;
  13. end.
Success #stdin #stdout 0.02s 252KB
comments (?)
stdin
copy 
11 2
stdout
copy 
1 * 3 * 5 * 7 * 9 * 11
https://ideone.com/Jff8U
language:
Pascal (fpc 3.0.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!