Closed ZeedMillenniummon closed 7 years ago
answer sudah benar tapi selalu WA
var n,m,i:integer; begin readln(n,m); for i:= 1 to n-1 do if i mod m <> 0 then write(i,' ') else write(' '); if n mod m <> 0 then write(n) else write(''); readln(); end.
answer sudah benar tapi selalu WA
var n,m,i:integer; begin readln(n,m); for i:= 1 to n-1 do if i mod m <> 0 then write(i,' ') else write(' '); if n mod m <> 0 then write(n) else write(''); readln(); end.