Пожаловаться
- 27.12.2017 10:43
- Информатика
- remove_red_eye 17289
- thumb_up 19
Ответы и объяснения 1
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
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
Пожаловаться
- 28.12.2017 20:00
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы