Question

Скласти програму, вказану на фото.

Answer 1

var n,k,m1,m2,i:integer;
begin
readln(n,k);
if (n<k)or(n>3*k)
 then writeln('Impossible')
 else begin
      m1:=n div k;
      m2:=n mod k;
      for i:=1 to m2 do write(m1+1:2);
      for i:=m2+1 to k do write(m1:2);
      end;
writeln;
end.

Пример:
7 4
 2 2 2 1