М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Владаhi
Владаhi
17.03.2022 04:01 •  Информатика

Восьмиклассники марина и саша изучают тему «делимость». они уже знают, что число а делится без остатка на число б, если число n можно представить в виде а = в * р, где р - некое целое число. чтобы лучше понять эту тему, маричка записывает на доске трехзначное натуральное число n, а саша пытается увеличить одну из цифр этого числа так, чтобы оно делилось н ^ с. напишите программу, которая находит все увеличить одну из цифр числа, записанного машей, так, чтобы полученное число было кратно 3

👇
Ответ:
sashafedorishyn
sashafedorishyn
17.03.2022
Var n,n1,n2,n3,s,m,k:integer;
begin
readln(n);
n1:=n div 100;
n2:=n div 10 mod 10;
n3:=n mod 10;
s:=n1+n2+n3;
m:=s mod 3;
k:=n1+3-m;
while k<=9 do
 begin write(k*100+n2*10+n3,' '); k:=k+3; end;
k:=n2+3-m;
while k<=9 do
 begin write(n1*100+k*10+n3,' '); k:=k+3; end;
k:=n3+3-m;
while k<=9 do
 begin write(n1*100+n2*10+k,' '); k:=k+3; end;
end.

Пример:
302
402 702 312 342 372 303 306 309
4,5(39 оценок)
Открыть все ответы
Ответ:
rast052
rast052
17.03.2022
Программа на python 3, перебирающая все возможные последовательности определённой длины:
def shortest_chains(n):
  def next_chains(chain):
    new_elems = set()
    for i in range(len(chain)):
      for j in range(i, len(chain)):
        new_elem = chain[i] + chain[j]
        if new_elem > chain[-1] and new_elem not in new_elems:
          new_elems.add(new_elem)
          yield chain + [new_elem]
  
  current_stage = None
  next_stage = [[1]]
  answer = []
  while len(answer) == 0:
    current_stage = next_stage
    next_stage = []
    for chain in current_stage:
      next_stage.extend(next_chains(chain))
    answer = [chain[1:] for chain in next_stage if chain[-1] == n]
  return answer
    
def print_solution(n):
  answer = shortest_chains(n)
  print("Для {} есть {} решений(-я, -е):".format(n, len(answer)))
  for i in range(len(answer)):
    print("{}. {}".format(i + 1, " ".join(map(str, answer[i]
  print()

Запустив, можно получить все 5 возможных решений для числа 7, по 4 решения для 15 и 23 и 87 решений для 63.
4,7(60 оценок)
Ответ:
AlexandraBobkova
AlexandraBobkova
17.03.2022
Uses GraphABC; 
procedure Draw(x, y, l, u : Real; t : Integer);

procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
Draw(x, y, l, u, t);
x := x + l*cos(u);
y := y - l*sin(u);end; 
begin
if t > 0 then
beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1);
Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end
else
Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end;
begin
SetWindowSize(425,500);
SetWindowCaption('Фракталы: Снежинка Коха');
Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4);
Draw(210, 8, 400, -pi/3, 4);end.
4,6(15 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ