andriyianna
07.08.2022 03:19

Драконы, как известно, воруют золото и драгоценности у людей, у эльфов, у гномов – где и когда только могут – и стерегут свою добычу до конца жизни (а живут драконы фактически вечно, если только их не убьют), но никогда не попользуются даже самым дешевым колечком. Сами они сделать не ровно ничего, даже не могут укрепить какую-нибудь разболтавшуюся чешуйку в своей броне.

Напишите программу, которая определит, заинтересуется ли дракон тем, что перечислено в строке. Если там есть золото в любой форме (достаточно проверить корень золот) или то слово, которое будет введено во второй строке, то точно заинтересуется. Если таких строк меньше половины всех строк для проверки, то надо сообщить ОСТАНЕТСЯ ГНОМАМ, если нет, то ЗАБЕРЕТ ДРАКОН.

Формат ввода
Вводится число n – сколько строк будет введено.

Затем строка – слово для проверки.

Затем остальные строки – (n - 1).

Формат вывода
В первой строке вывести, сколько процентов от n составляют интересные драконам строки.

Затем вывести ОСТАНЕТСЯ ГНОМАМ или ЗАБЕРЕТ ДРАКОН.
ПИТОН

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
анора10
08.09.2021 06:54
Вопрос с подвохом, пропускная меряется не от возможной передачи на стороне провайдера или пользователя, а от версии протокола 2СH (2 цэ-аш). Рассмотрим 2 последние версии. Протокол 2015 года поддерживал пропускную вплоть до 20 MB/WEBM. Стандарт нового протокола поразили многих экспертов, скорость была снижена вдвое. Но сделано это было в связи с отказом многих производителей сетевого оборудования устанавливать расширяющие микросхемы PassCODE для поддержки тех самых 20 MB/WEBM. Может в будущем, с большим распространением PassCODE пропускную поднимут, но пока приходится с этими ограничениями смирится и перекодировать WEBM что несомненно, приведет к ухудшению их качества. 
0,0(0 оценок)
Ответ:
27081984e
22.03.2023 08:03
//1. Переборный алгоритм Евклида (цикл repeat)

var a, b, с: integer; 

begin

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

  readln(a, b);

  if a < b then с := a + 1 else с := b + 1;

repeat с := с - 1

  until (a mod с = 0) and (b mod с = 0);

  write('NOD = ', с)

end.

 

//2. Алгоритм с вычитанием (цикл while)

var  a, b: integer;

begin

  write('a = ');

  readln(a);

  write('b = ');

  readln(b);

  while a <> b do

    if a > b then

      a := a - b

    else

      b := b - a;

  writeln('NOD = ', a);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота