Нужно! исполнитель редактор получает на вход строку цифр и преобразовывает её. редактор может выполнять две команды, в обеих командах v и w обозначают цепочки символов. заменить (v, w) нашлось (v) первая команда заменяет в строке первое слева вхождение цепочки v на цепочку w. если цепочки v в строке нет, эта команда не изменяет строку. вторая команда проверяет, встречается ли цепочка v в строке исполнителя редактор. если она встречается, то команда возвращает логическое значение "истина", в противном случае возвращает значение "ложь". дана программа для исполнителя редактор: начало пока нашлось (222) заменить (222, 1) заменить (111, 2) конец пока конец какая строка получится в результате применения программы к строке вида 1…12…2 (2019 единиц и 2019 двоек)? 11) исполнитель редактор получает на вход строку цифр и преобразовывает её. редактор может выполнять две команды, в обеих командах v и w обозначают цепочки символов. заменить (v, w) нашлось (v) первая команда заменяет в строке первое слева вхождение цепочки v на цепочку w. если цепочки v в строке нет, эта команда не изменяет строку. вторая команда проверяет, встречается ли цепочка v в строке исполнителя редактор. если она встречается, то команда возвращает логическое значение "истина", в противном случае возвращает значение "ложь". дана программа для исполнителя редактор: начало пока нашлось (11) заменить (11, 2) заменить (22, 3) заменить (33, 1) конец пока конец какая строка получится в результате применения программы к строке вида 1…13…3 (2019 единиц и 2119 троек)?
Ответы
Var k, s, i: integer; beginreadln(k); s: =k mod 10; i: =0; while k< > 0 do begin k: =k div 10; if s< k mod 10 then begins: =k mod 10; i: =0; end; if s=k mod 10 theni: =i+1; end; writeln(i); end. в переменной k вводим число, в переменной s храним максимальную цифру, в переменной i подсчитываем вхождение максимальной цифры в число var k, s, i: integer; beginreadln(k); //вводим числоs: =k mod 10; //предполагаем что последняя цифра - максимальнаяi: =0; // инициализируем счетчик нулемwhile k< > 0 do begin//цикл идет до тех пор пока не закончатся цифры в k k: =k div 10; // отбрасываем цифру от числа if s< k mod 10 then //если s < последней цифры kbegins: =k mod 10; //то меняем нашу максимальную цифру на новуюi: =0; // и сбрасываем счетчикend; if s=k mod 10 then// если цифра в числе равна максимальной цифреi: =i+1; //прибавляем 1 к счетчикend; writeln(i); //выводим количество вхождений максимальной цифры end.
•процессор socket-1155 intel core i3-2100, 3,1 ггц — 4390 руб.; • материнская плата socket-1155 asrock ddr3 matx ac’97+lan+ vga — 1850 руб.; • корпус компьютера с блоком питания мощностью 400 в — 2480 руб.; • модули оперативной памяти объемом 8 гбайт — 2010 руб.; • жесткий диск объемом 500 гбайт — 3100 руб.; • видеокарта с объемом видеопамяти 2 гбайта — 5880 руб.; • мышь оптическая — 200 руб.; • клавиатура — 180 руб.; • монитор lcd, диагональ 20 дюймов — 5870 руб.; • привод cd-rw — 830 руб.; • модем — 940 руб.; • звуковая карта и • сетевая карта 10/100/1000 мбит/с не нужны так как в материнской плате они уже есть
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
В таблице представлены характеристики 10 крупнейших озер Казахстана:
Автор: neganovaarxi
даю 31б если будит правильно то сделаю лучшим ☺☺☺
Автор: vadimpopov88
Составить блок-схему и указать тип алгоритмов: найти сумму первых десяти натуральных четных чисел.
Автор: milanparipovic864
