В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
5Костя5
5Костя5
01.07.2021 16:51 •  Информатика

Файлы в C++ Дано текстовый файл определить количество слов в нем длина которых больше 10 символов.

Показать ответ
Ответ:
yuliav1801
yuliav1801
19.01.2020 12:34
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  м1, с1, м2, с2, м3, с3: ЦЕЛ;

УКАЗ
  Вывод.Цепь("Первый спортсмен: ");
  м1 := Приём.Число(); Вывод.Цепь(":"); с1 := Приём.Число();
  Вывод.Цепь("^Второй спортсмен: ");
  м2 := Приём.Число(); Вывод.Цепь(":"); с2 := Приём.Число();
  Вывод.Цепь("^Третий спортсмен: ");
  м3 := Приём.Число(); Вывод.Цепь(":"); с3 := Приём.Число();

  с1 := с1 + м1 * 60;
  с2 := с2 + м2 * 60;
  с3 := с3 + м3 * 60;

  ЕСЛИ с1 > с2 ТО
    ЕСЛИ с3 > с1 ТО
      Вывод.Цепь("^Третий.")
    АЕСЛИ с1 > с3 ТО
      Вывод.Цепь("^Первый.")
    ИНАЧЕ
      Вывод.Цепь("^Первый и третий.")
  АЕСЛИ с2 > с1 ТО
    ЕСЛИ с3 > с2 ТО
      Вывод.Цепь("^Третий.")
    АЕСЛИ с2 > с3 ТО
      Вывод.Цепь("^Второй.")
    ИНАЧЕ
      Вывод.Цепь("^Второй и третий.")
  ИНАЧЕ
    ЕСЛИ с3 > с1 ТО
      Вывод.Цепь("^Третий.")
    АЕСЛИ с3 < с1 ТО
      Вывод.Цепь("^Первый и второй.")
    ИНАЧЕ
      Вывод.Цепь("^Ничья.")
  КОН

КОН Задание.
Нужно решить . 75 + первому кто ответит лучший засчитаю. в компьютер поступают результаты соревнован
0,0(0 оценок)
Ответ:
myisipov1erg
myisipov1erg
17.04.2021 18:15
Невнятно как-то сформулировано - то индексы найти, то массива нету... Пишу, как понял.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  массив: РЯД 15 ИЗ ВЕЩ;
  сч, найдено: ЦЕЛ;
  найденное, индексы: ДОСТУП К РЯД ИЗ ВЕЩ;

УКАЗ
  найдено := 0;
  СОЗДАТЬ(индексы, РАЗМЕР(массив) - 1);
  ОТ сч := 1 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] = массив[0] ТО
      найденное[найдено] := сч;
      УВЕЛИЧИТЬ(найдено)
    КОН
  КОН;
  ЕСЛИ найдено = 0 ТО Вывод.Цепь("Не найдено.")
  ИНАЧЕ
    СОЗДАТЬ(индексы, найдено);
    ОТ сч := 0 ДО найдено - 1 ВЫП
      индексы[сч] := найденное[сч]
    КОН;
    найденное := ПУСТО
  КОН

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