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

73 заранее 25.два игрока, петя и ваня играют в следующую игру. задан некоторый набор символьных цепочек («слов»), в котором ни одно слово не является началом другого (выполняется условие фано). игра начинается с пустой строки, в конец которой игроки по очереди дописывают буквы, по одной букве за ход так, чтобы полученная цепочка на каждом шаге была началом одного из заданных слов. первый ход делает петя. выигрывает тот, кто первый составит слово из заданного набора. пример. пусть заданы слова {мак, мыло, рама, рак}. на первом ходу петя может написать букву м или р. пусть он написал букву м. в ответ ваня может написать а или ы. в первом случае получается ма, и петя, дописав букву к, получает слово мак из заданного набора и выигрывает. во втором случае получается мы, петя вынужден дописать л и ваня выиграет вторым ходом, дописав о и получив слово мыло. вопрос 1. задан набор слов {собака, сокол}. у кого из игроков есть выигрышная стратегия? вопрос 2. задан набор слов {контора, конь, конец, весло, веселье, верстак, вест}. у кого из игроков есть выигрышная стратегия? вопрос 3. ваня может добавить к набору из вопроса 2 одно слово из такого списка: вера, выдра, верфь, молоко, солнце, фоксфорд. какое слово ему нужно добавить, чтобы на новом наборе у него была выигрышная стратегия? 24.два игрока, петя и ваня играют в следующую игру. задан некоторый набор символьных цепочек («слов»), в котором ни одно слово не является началом другого (выполняется условие фано). игра начинается с пустой строки, в конец которой игроки по очереди дописывают буквы, по одной букве за ход так, чтобы полученная цепочка на каждом шаге была началом одного из заданных слов. первый ход делает петя. выигрывает тот, кто первый составит слово из заданного набора. пример. пусть заданы слова {мак, мыло, рама, рак}. на первом ходу петя может написать букву м или р. пусть он написал букву м. в ответ ваня может написать а или ы. в первом случае получается ма, и петя, дописав букву к, получает слово мак из заданного набора и выигрывает. во втором случае получается мы, петя вынужден дописать л и ваня выиграет вторым ходом, дописав о и получив слово мыло. вопрос 1. задан набор слов {собака, сокол}. у кого из игроков есть выигрышная стратегия? вопрос 2. задан набор слов {контора, конь, конец, весло, веселье, верстак, вест}. у кого из игроков есть выигрышная стратегия? вопрос 3. ваня может добавить к набору из вопроса 2 одно слово из такого списка: вера, выдра, верфь, молоко, солнце, фоксфорд. какое слово ему нужно добавить, чтобы на новом наборе у него была выигрышная стратегия? 24.на вход программы поступает натуральное число, не превышающее . нужно написать программу, которая выводит на экран максимальную цифру числа, кратную 3. если в числе нет цифр, кратных 3, требуется на экран вывести «no». в программе есть ошибки. код на языке python n = int( m = 0 while n > 0: d = n % 10 if d % 3 == 0: if d > m: m = d n = n // 10 if m == 0: print('no') else: print(m) код на языке pascal var n, d, m: longint; begin readln(n); m : = 0; while n > 0 do begin d : = n mod 10; if d mod 3 = 0 then if d > m then m : = d; n : = n div 10; end; if m = 0 then writeln('no') else writeln(m) end. код на языке c++ #include using namespace std; int main() { int n, d, m; cin > > n; m = 0; while (n > 0) { d = n % 10; if (d % 3 == 0) if (d > m) m = d; n = n / 10; } if (m == 0) cout < < "no" < < endl; else cout < < m < < endl; return 0; } код на алгоритмическом языке алг нач цел n, m, d ввод n m : = 0 нц пока n > 0 d : = mod(n,10) если mod(d, 3) = 0 то если d > m то m : = d все все n : = div(n,10) кц если m = 0 то вывод "no" иначе вывод m все кон 22.исполнитель калькулятор преобразует число на экране. у исполнителя есть три команды, которым присвоены номера: 1.прибавить 1 2.умножить на 3 3.умножить на 4 сколько существует программ, для которых при исходном числе 2 результатом является число 65 и при этом траектория вычислений содержит число 16 и не содержит число 21? .6,петя программирует робота. пока что робот умеет преобразовывать числа по такому правилу: если роботу натуральное число n, то он переводит его в двоичную систему счисления, считает x — сумму цифр в полученной двоичной записи, а затем к двоичной записи числа n справа приписывает остаток от деления x на 2. у полученного двоичного числа опять вычисляет сумму цифр y и остаток от деления y на 2 приписывает к двоичному числу. результат работы робот переводит в десятичную систему счисления и возвращает пете. например, если на вход роботу подать число 1, то из него будет получено двоичное число 110, а пете вернется десятичное число 6. какое наименьшее число пете нужно дать роботу, чтобы в результате получилось число, большее 144? в ответе это число запишите в десятичной системе, например, 13.

👇
Открыть все ответы
Ответ:
Vlada434
Vlada434
31.03.2022
Procedure TForm1.Button1Click(Sender: TObject);
begin
    If FontDialog.Execute then
        RichEdit1.SelAttributes.Assign(FontDialog1.Font);
        RichEdit1.SetFocus;
    End;
end;

делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
 Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
  RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится
4,7(10 оценок)
Ответ:
katyasvk
katyasvk
31.03.2022
Var
  s,s1:string;
  a,b:array[1..100]of integer;
  i,n,x,k:integer;
    begin
      readln(s);
      readln(s1);
      n:=1;
       if length(s)>length(s1) then
        x:=length(s)
        else x:=length(s1);
         for i:=1 to length(s) do
         begin
          val(copy(s,i,1),k,n);
          a[i+x-length(s)]:=k;
         end;
           for i:=1 to length(s1) do
         begin
          val(copy(s1,i,1),k,n);
          b[i+x-length(s1)]:=k;
         end;
      for i:=1 to length(s) do
        a[i]:=a[i]+b[i];
        for i:=length(s) downto 2 do
        begin
         a[i-1]:=a[i-1]+a[i]div 10;
         a[i]:=a[i]mod 10;
        end;
      for i:=1 to length(s) do
       write(a[i]);
        
        
      end.
         
4,6(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ