Станиславович
6 год назад
Скласти програму, вказану на фото.
ОТВЕТЫ
Гай
Jul 4, 2019
Var n,k,m1,m2,i:integer;
begin
readln(n,k);
if (nlt;k)or(ngt;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
begin
readln(n,k);
if (nlt;k)or(ngt;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
284
Смежные вопросы:
