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

Дан файл, содержащий текст на языке. опредилить: 1. цифры, которые входят в текст; 2.определить сколько раз встречается в нем самое короткое слово; 3. выбрать буквы, которые встречаются только 1 раз в порядке их расположения. с обьясннием

👇
Ответ:
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadAllText('input.txt'); s.Println; // из файла
  var Delimeters:=Arr(' ','-',',','.',')','(',':',Chr(13),Chr(10));
  s:=LowerCase(s);
  var a:=s.ToWords(Delimeters); // массив слов
  Write(Newline,'Цифры, входящие в текст: ');
  s.MatchValues('\d').Distinct.OrderBy(x->x).Println;
  var k:=a.MinBy(x->x.Length).Length;
  Write('Самые короткие слова: ');
  a.Where(x->(x.Length=k))
      .GroupBy(x->x).Select(x->x.Key)
      .Where(x->Pos(x,'0123456789')=0).Println(',');
  Write('Буквы, встречающиеся ровно один раз: ');
  s.ToCharArray.Where(x->not (x in Delimeters))
      .Where(x->not (x in ['0'..'9']))
      .GroupBy(x->x).Select(x->(x.Key,x.Count))
      .OrderBy(x->x[1]).ThenBy(x->x[0])
      .Where(x->x[1]=1).Select(x->x[0]).Println;
end.

Пример
Большой Кавказ простирается более чем на 1100 км с северо-запада
на юго-восток, от района Анапы и Таманского полуострова Чёрного моря
до Апшеронского полуострова на побережье Каспия, рядом с Баку.
Максимальной ширины Большой Кавказ достигает в районе меридиана Эльбруса
(почти 180 км). В осевой части расположен Главный Кавказский
(или Водораздельный) хребет, к северу от которого простирается ряд
параллельных хребтов (горных цепей), в том числе моноклинального
(куэстового) характера). Южный склон Большого Кавказа большей
частью состоит из кулисообразных хребтов, примыкающих к Главному
Кавказскому хребту.
Традиционно Большой Кавказ делится на 3 части: Западный Кавказ
(от Чёрного моря до Эльбруса), Центральный Кавказ
(от Эльбруса до Казбека) и Восточный Кавказ (от Казбека
до Каспийского моря).

Цифры, входящие в текст: 0 1 3 8
Самые короткие слова: с,и,в,к
Буквы, встречающиеся ровно один раз: щ
4,5(60 оценок)
Открыть все ответы
Ответ:
chipssensey
chipssensey
23.08.2021

Объяснение:Из этого видео вы узнаете об автоматических оглавлениях. Сначала просмотрите документ и добавьте текст заголовка в соответствующем стиле в то место, куда нужно поместить элемент оглавления. Затем вставьте автоматическое оглавление, которое будет обновляться автоматически при каждом изменении.

Создание оглавления

Сначала примените стили заголовков (например, Заголовок 1 и Заголовок 2) к тексту, который требуется включить в оглавление. Выделите текст, откройте вкладку ГЛАВНАЯ и наводите указатель мыши на разные виды заголовков в коллекции Стили. Чтобы увидеть, как будет выглядеть стиль заголовка в документе, задержите на нем указатель. Выберите понравившийся стиль.

Щелкните место, где требуется вставить оглавление — как правило, в начале документа.

На вкладке ССЫЛКИ нажмите кнопку Оглавление, а затем выберите в коллекции стилей пункт Автособираемое оглавление.

4,4(92 оценок)
Ответ:
Fara228229
Fara228229
23.08.2021

#include <iostream>

#include <math.h>

const double g = 9.08665;

int main() {

unsigned int h;

std::cout << "Enter height of tree :" ;

std::cin>> h;

if (std::cin.fail()) // если предыдущее извлечение оказалось неудачным,

       {

           std::cin.clear();

           std::cin.ignore(32767,'\n');

std::cout << "Please die";

return 2;

       }

if(h == 0) {

std::cout<<"You are stupid! Apple is on the earth\n";

return 1;

}

std::cout<<"Program is thinking, but you no!\n";

double t = sqrt(2 * h / g);

std::cout << "Time is " << t << "\n";

std::cout << "Goodbye asshole\n";

return 0;

}

Объяснение:

Надеюсь, тебе не поставят два за это

Замени мои матные выражения в "" и можешь сдавать

4,8(19 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ