D. число змея горыныча ограничение времени 1 секунда ограничение памяти 64kb ввод стандартный ввод или dragon.in вывод стандартный вывод или dragon.out как известно всем жителям нашей страны с детства, трехглавый змей горыныч немало бед доставил князю киевскому. вот и опять идет он войной на киев-град. послал князь за сильно-могучими богатырями-защитниками, но оказалось, что их нет в киеве, собирают они дань с хана бекета. шлет князь гонца к богатырям, но нужно время, чтобы прибыли они на бой со змеем горынычем. надо задержать змея горыныча. к счастью, есть у князя секретный прием на этот случай. секретный прием основан на том, что змей горыныч любит яблоки. как только он их видит, забывает про все на свете и пока их не съест, даже на войну не отвлекается. поэтому князь кинул кличь: – всем людям земли киевской собирать яблоки, и нести их ненасытному трехглавому змею горынычу! выстроился народ в ряд перед лежбищем чудища кровожадного. вышел змей горыныч глянул на яблоки в ведрах и решил поиздеваться над людом трудолюбивым. заставил все яблоки, принесенные в ведрах, взвешивать (известно, что в ведро помещается до 9 кг яблок), а змей вес (в кг) каждого ведра яблок записывал на листок и в результате у него длинню-ю-ю-ю-щее число получилось. посмотрел на число трехглавый змей и сказал: – голов у меня 3, потому должно полученное число на 3 делиться, иначе головы мои обидеться могут. вы, людишки, должны изменить количество яблок в одном из ведер, не меняя порядок следования ведер, таким образом, что если я вновь взвешу все ведра – у меня в записи «числа» поменяется только одна цифра, при этом новое число должно делиться на 3 и быть оно должно максимально возможным из всех таких чисел. если справитесь с таким , отпущу вас, а нет, так в яблочный салат в качестве приправы от вас требуется люду киевскому, написав программу, которая выдает то число, что требует змей горыныч. формат ввода формат входного файла в первой строке записаны последовательно без пробелов веса ведер с яблоками xi (0≤xi ≤9; 1≤ i ≤200). формат вывода формат выходного файла в первой строке входного файла записано число, которое требует змей горыныч. пример 1 ввод вывод 853 873 пример 2 ввод вывод 756 786

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

mimidoghoz

13.10.2020 21:12

8. компьютерной программе было задано : из нижеперечисленного списка выбрать общеутвердительное суждение. отметьте выбор программы. a) некоторые собаки большие. b)...

Діанка465

13.10.2020 21:12

Перенос информации из одной программы в другую...

angelinaholod72

24.06.2022 07:13

В результате выполнения алгоритма переменная с примет значения: a:=25 b:=100 a:=a-b/2 если a b то c:=a+b иначе c:=b-a...

Nastya4816

26.10.2021 19:24

СПАМ БАНЮ 2. Сколько раз выполнится цикл и чему будет равно значение переменной а после выполнения цикла? a) a := 6; b := 8; while a b do a := a+1; b) a := -4; b :=...

milka2636

07.02.2020 16:58

Что такое Алгоритм Краткий ответ...

Катрин703

04.05.2021 09:32

Определите сколько раз можно записать соопщение 《В знании сила,в силе - победа,если ёмкость магнитного диска состовляет 360Кб (не считая кавычеки). Для хранения 1 символа...

HardFunny

22.04.2020 08:21

НУЖНА нужно сделать либо на оценку 4, либо 5...

ahmetoadilnaz1

28.07.2021 00:28

Реши задачу. Во время каникул весёлые человечки отправились путешествовать на разных видах транспорта. Незнайка проплыл 56 км на пароходе, проехал 59 км на поезде и...

карина2155

26.06.2022 02:32

Сторона квадрата = а программа вычисление периметра...

Aldhynbaavyl

10.04.2023 09:23

Ыберите неправильно записанное имя переменной на языке программирования Pascal: F123 begin primer mod...

Ответ:

Fidjit

22.11.2022 17:52

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
procedure GetProdNeg(a:array of integer; var p:real);
// произведение отрицательных элементов
begin
p:=a.Where(x->x<0).Aggregate(1.0,(p,e)->p*e)
end;

function IsPrime(n:integer):boolean:=
Range(2,Round(sqrt(n))).All(i->n mod i<>0);

procedure ArrPrime(n:integer; var a:array of integer);
// массив простых чисел не больших n
begin
a:=Range(2,n).Where(i->IsPrime(i)).ToArray
end;

begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var r:real;
GetProdNeg(a,r);
Writeln('Произведение ',r);
n:=ReadInteger('n=');
var b:array of integer;
ArrPrime(n,b);
b.Println
end.

Тестовое решение:
n= 15
27 -7 -36 40 -15 -21 -47 -28 -12 45 3 -38 -15 1 -39
Произведение 27866837980800
n= 300
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293

0,0(0 оценок)

Ответ:

lira0804

08.04.2020 10:41

Максимальное число, составленное из утроенного произведения цифр будет
9*3*N - не может быть больше 54, т.е.
N может быть только 1 или 2. По условию х>=10 -> N=2 (N -порядок числа).
Поэтому искать нужно среди чисел от 11 до 54. Решение - число 15.

var n,m: integer;
begin
write('n = '); readln(n);
if n=2 then
begin m:=11;
repeat
if (m mod 10)*(m div 10)*3=m then
begin
writeln('число: ',m);
m:=55;
end;
m:=m+1;
until m>54;
end
else writeln('нет решения');
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку