Ответ(ы) на вопрос:
Гостьvar n,k,m1,m2,i:integer;
begin
readln(n,k);
if (n3*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
Не нашли ответ?
Похожие вопросы