eliseevivan
29.02.2020 17:35

Ваня готовит блюдо из четырёх ингредиентов. В рецепте не написано их количество и последовательность добавления, но Вася знает их сам. Он кладёт в кастрюлю первый ингредиент, пять третьих, шесть четвёртых, семь вторых, а затем ещё раз первый. Его младший брат, который ещё не умеет считать, но умеет писать, записывает через пробел в блокнот всё, что оказывается в кастрюле по очереди. По названиям ингредиентов выведи получившуюся запись.

яйцо ложка майонеза ложка майонеза

мясо морковь морковь морковь морковь морковь перец перец перец перец перец перец лук лук лук лук лук лук лук мясо

курица ложка майонеза ложка майонеза ложка майонеза ложка майонеза ложка майонеза ананас ананас ананас ананас ананас ананас сыр сыр сыр сыр сыр сыр сыр курица

спагетти чеснок чеснок чеснок чеснок чеснок пармезан пармезан пармезан пармезан пармезан пармезан соус соус соус соус соус соус соус спагетти

рыба морковь морковь морковь морковь морковь сыр сыр сыр сыр сыр сыр картофель картофель картофель картофель картофель картофель картофель рыба

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Karol45
13.11.2022 05:17
Самый первый компьютер в мире Марк 1

Самый первый компьютер в мире был создан и построен в США математиком из Гарвардского университета Говардом Эйксном еще в 1941 году. После всех испытаний, состоялся его запуск седьмого августа 1944. Он получил название от своих создателей «Марк 1», и его поставили работать в Гарварде.


Тогда этот компьютер стоил пятьсот тысяч долларов, баснословная по тем временам сумма. Его собрали в специальный корпус, который был сделан из стекла и стали, не поддающейся коррозии. Сам корпус в длину был не менее семнадцати метров, высота была более 2.5 м. Его масса была около 5-ти тонн и занимал он пространство объемом в несколько десятков кубических метров.
«Марк 1» состоял из множества переключателей и прочих механизмов, общая численность которых составляла 765 тысяч.
Его провода составляли общую длину около восьмисот километров!Машина могла:

1) оперировать семьюдесятью двумя числами, которые в свою очередь состояли из двадцати трех десятичных разрядов
2) компьютер мог вычитать, складывать и на каждую из операций у него уходило по три секунды.
3) кроме этого, он также умножал и делил, тратя на эти операции по шесть и пятнадцать секунд.

Выбери самое важное. У меня всё
0,0(0 оценок)
Ответ:
tanuskin798
28.12.2021 22:43
Не такое оно и сложное.
Главная проблема - то, что между словами может быть несколько пробелов.
Устраним её, написав функцию, которая оставляла бы между словами по 1 пробелу:

function RemoveSpaces(str : string) : string;
begin
   //Тут цикл for, переписанный через while
   var iter := 1;
   //Проходим по строке
   while (iter < str.Length) do
   begin
      //Если видим 2 пробела подряд, удаляем 1 и откатывает итератор.
      if (str[iter] = ' ') and (str[iter + 1] = ' ') then
         begin
            str := str.Remove(iter, 1);
            iter -= 1;
         end;
      iter += 1;
   end;
   RemoveSpaces := str;
end;

Теперь мы можем получить кол-во слов очень просто:

function CalcWords(str : string) : integer;
begin
   CalcWords := RemoveSpaces(str).Split(' ').Count();
end;

Т.е. мы делим строку на массив через пробелы, и считаем кол-во элементов массива.

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