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

На доске написано 16 чисел [82, 56, 84, 70, 73, 99, 79, 79, 66, 90, 71, 99, 99, 65, 64, 50] (именно в таком порядке). дима играет в игру со следующими правилами: перед каждым ходом на доске написано 2n чисел (n каждый раз разное) на каждом ходе дима выбирает, какую половину он хочет стереть — первые n чисел или последние n чисел после этого дима стирает выбранную половину и получает количество очков, равное максимальному стертому этим ходом числу. игра заканчивается, когда на доске остается одно число, и оно не засчитывается диме в очки какое максимальное число очков сможет набрать дима?

👇
Ответ:
Лилоп
Лилоп
12.05.2023
Отвечал уже, и ту задачу уже написали к комментариях.
Убираем первые 8 чисел. 99 очков.
Убираем последние 4 числа. 99 очков.
Убираем последние 2 числа. 99 очков.
Убираем последнее число. 90 очков.
Осталось 66.
Набрали 99 + 99 + 99 + 90 = 387.
Это максимальная сумма, потому что мы сложили 4 самых больших
4,4(35 оценок)
Открыть все ответы
Ответ:
3035111236
3035111236
12.05.2023

program rome_arabic;

Uses crt;

Const

{римские цифры}

RomeDigits:string='IVXLCDM';

{числа - соответствующие римским цифрам}

ArabicNumbers:array [1..7] of integer =

(1, 5, 10, 50, 100, 500, 1000);

(*

Функция определения правильности ввода арабского числа

*)

function IsArabic(s:string):boolean;

var i,t,c:integer;

begin

IsArabic:=true;

for i:=1 to length(s) do

if not(s[i] in ['0'..'9'])then

begin

IsArabic:=false;

exit;

end;

val(s,t,c);

if (c<>0)or(t<1) then

begin

IsArabic:=false;

exit;

end;

end;

(*

Функция перевода арабского числа в римское

*)

function ArabicToRome (s: string): string;

var

i,n,c: integer;

res: string;

begin

val(s,n,c);

res:='';

i:=7; {Проверяем от больших чисел к меньшим}

while n>0 do

begin

{находим следующее число - из которого будем формировать римскую цифру}

while ArabicNumbers[i]>n do i:=i-1;

res:=res+RomeDigits[i];

n:=n-ArabicNumbers[i];

end;

ArabicToRome := res;

end;

(*

Функция определения правильности ввода римского числа

*)

function IsRome(s:string):boolean;

var i:integer;

begin

IsRome:=true;

if s='' then

begin

IsRome:=false;

exit;

end;

for i:=1 to length(s) do

if not (s[i] in ['I', 'V', 'X', 'L', 'C', 'D', 'M']) then

begin

IsRome:=false;

break;

end;

end;

(*

Функция перевода римского числа в арабское

*)

function RomeToArabic (s: string): integer;

var

b:array[1..100] of integer;

i,j:integer;

res:integer;

begin

for i:=1 to length(s) do

begin

if s[i]='I' then b[i]:=1;

if s[i]='V' then b[i]:=5;

if s[i]='X' then b[i]:=10;

if s[i]='L' then b[i]:=50;

if s[i]='C' then b[i]:=100;

if s[i]='D' then b[i]:=500;

if s[i]='M' then b[i]:=1000;

end;

res:=b[1];{массив локальная переменная и

сравнение первого элемента с нулевым искажает число,

почему-то считает, что b[0]=1 и автоматом вычитает 2}

for i:=2 to length(s) do

begin

res:=res+b[i];

if b[i-1]<b[i] then res:=res-2*b[i-1]{вот здесь}

end;

RomeToArabic:=res;

end;

{Основная программа}

var

arabic: string; {арабское число}

rome: string; {римское число}

ask: char; {режим перевода чисел}

begin

clrscr;

writeln('Программа переводит римское число в арабское или арабское в римское');

repeat

clrscr;

writeln('Выберите режим перевода:');

writeln('1 - римское число в арабское');

writeln('2 - арабское число в римское');

writeln('другое - выход');

ask:=readkey;

case ask of

'1': begin {Римское в арабское}

write('Введите римское число: ');

readln(rome);

if IsRome(rome) then

writeln('Арабское число = ',RomeToArabic(rome))

else writeln('В римской записи числа допущены ошибки! Перевод не возможен!');

writeln('Press Enter...');

readln

end;

'2':begin {арабское в римское}

write('Введите арабское число: ');

readln(arabic);

if IsArabic(arabic) then

writeln('Римская запись = ',ArabicToRome(arabic))

else writeln('В арабской записи числа допущены ошибки! Перевод не возможен!');

writeln('Press Enter...');

readln

end;

else exit;

end;

until not(ask in ['1','2']);

end.

4,6(66 оценок)
Ответ:
Вот тебе дано "ГО" , к нему приписываешь обратный порядок букв ГО,значит "ОГ".
Уже получается ГООГ. После этого приписываешь ко всему этому букву,стоящую после О в алфавите( т.к буква "О" последняя буква "ГО"). После О в алфавите идет П,поэтому получается в итоге
ГО+ОГ+П= ГООГП.
Теперь, нужно повторить этот алгоритм второй раз,только уже с набором букв, который получился после первого раза выполнения алгоритма,т.е с ГООГП.
Начнем.
ГООГП записываем наоборот => ПГООГ. 
Получаем
ГООГП + ПГООГ + Р = ГООГППГООГР
Готовый ответ: ГООГППГООГР
4,4(76 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ