Текст как следует закодировали, сжали и защитили от помех... ты же должен вернуть его к жизни...

100101010001100 011000001100101 011000111100011 010101010011001 000011000111010 001110011000100 001101001010011 111001011100100 110111001010101 000001101010110 010010010110010 001110011110101 011000110001101 000110100100101 110110101001000 101010110101010 110111110101100 011000001100101 001100100101001 000001000100100 001101011110010 111001011100100 000111010101100 101011001011001 100000101001011 000001101010110 010010000110101 110100100011101 000011010101011 110010110101001 011110110110010 100001110010010 110101110101100 011000001100001 011000011101011 000101010011001 000011000011010 001110011000110 010101001010011 111001000100100 101100110010100 001110011110101 101100100001110 111001100011101 100011010100011 100001011100110 110110101001000 101000110101010 110111110101000 011000001100101 011000111111011 010101010010001 001011000111010 001110011000110 000110001001110 011001100010001 101100100110011 011001011100100 000001010101100 011011011001101 010101010110101 100011100011101 000111010100011 100001011100011 110110101001000 111111001011001 011110110110010 100001100101010 111000111101011 110101110011010 111101001001110 011101100011001 001100100110011 111001011100100 110011011010101 000001101010110 110010010110010 001110011110111 101110100001100 111101000011101 100000000100100 101010100101110 110111110101100 011000001101101 011100111101011 010111010011001 000011000111010 001110011100110 011101001010011 111001011100100 110011001110101 000001101010110 110010010110010 001110010110101 101100100001110 111101100011101 000011010100111 000001011100111 110110101001100 011010110100000

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

↓

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

Auyrey03

12.06.2020 00:29

Какое наименьшее число вопросов необходимо задать, чтобы отгадать число в пределах от 1 до 200? считать, что загадавший может ответить на вопрос только да или нет...

sadzim

29.12.2021 11:56

Даны три числа. увеличить максимальное из чисел на 5(с++) ,...

uhon1k

04.02.2022 23:17

Опиши последовательность действий создания модели дома в sketchup...

БомБонУтыЙ

22.05.2021 04:16

Что нужно нажать чтобы остановить вывод результата бесконечной рекурсии?...

4Z1GGeR4

23.02.2020 21:38

Перевести 277¹⁰ в 2 ую систему счисления с проверкой информатика...

ponomariov17p01k9s

19.02.2023 17:33

Перечислите что такое центральный процессор (CPU) и ОЗУ (RAM)и их параметры...

katecat20171

14.05.2022 05:06

Презентація на тему IT на виробництві...

anonimm852

26.10.2021 07:34

Помагите информатика 8 класс...

pinsker025

17.02.2023 09:05

укажите наибольшее из четырёх числа: 51(16) 14(8) 10110(2) 79(10)...

PIPL34linka

10.11.2022 09:22

Решите с пояснениями и ходом решения...

Ответ:

winston63ru

30.04.2020 01:46

Procedure GetWord(s:string; var p:integer; var w:string; delim:string:=' ');
{
Получает в w слово из строки s, которое начинается не ранее позиции p.
Возвращает новое значение p, указывающее на первый разделитель delim,
который следует за найденным словом или 0, если такой разделитель не найден.
По умолчанию слова разделяются не менее чем одним пробелом
}
var
i,n:integer;
fBreak:boolean; { флажок для прерывания циклов }
begin
n:=Length(s); fBreak:=False;
{ищем первый символ, отличный от разделителя - начало слова }
while ((p<=n) and (not fBreak)) do
    if (p=n) or (s[p]<>delim) then fBreak:=True
    else Inc(p);
{ ищем очередной разделитель - конец слова }
if p<n then begin
    i:=p; Inc(p); fBreak:=False;
    while (p<=n) and (not fBreak) do begin
      if (p=n) or (s[p]=' ') then fBreak:=True else Inc(p)
    end;
{ теперь слово находится между позициями i и p }
w:=Copy(s,i,p-i)
end;
if p>=n then p:=0
end;

function CountG(w:string):integer;
{ возвращает количество гласных в слове w}
var
i,k:integer;
begin
k:=0;
for i:=1 to length(w) do
    if w[i] in ['а','е','ё','и','о','у','ы','э','ю','я'] then Inc(k);
CountG:=k
end;

var
s,w,wmax:string;
p,k,gmax:integer;
begin
Writeln('Введите текст, разделяя слова пробелами');
Readln(s);
s:=LowerCase(s);
p:=1; gmax:=0;
while p>0 do begin
    GetWord(s,p,w);
    k:=CountG(w);;
    if gmax<k then begin gmax:=k; wmax:=w end
end;
if gmax>0 then Writeln('В слове "',wmax,'" максимум гласных, равный ',gmax)
else Writeln('Во введенной строке гласных букв не найдено')
end.

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

Ответ:

сичоврчс

15.04.2023 11:53

Блок-схема — это схематичное представление процесса, системы или компьютерного алгоритма. Блок-схемы часто применяются в разных сферах деятельности, чтобы документировать, изучать, планировать, совершенствовать и объяснять сложные процессы с простых логичных диаграмм. Для построения блок-схем применяются прямоугольники, овалы, ромбы и некоторые другие фигуры (для обозначения конкретных операций), а также соединительные стрелки, которые указывают последовательность шагов или направление процесса. Блок-схемы варьируются от незамысловатых, нарисованных вручную до подробных, составленных на компьютере диаграмм со множеством шагов и процессов. Если учесть все возможные вариации, блок-схемы можно признать одним из самых распространенных видов схем во всем мире. Они широко используются в разных сферах как технической, так и нетехнической направленности. Иногда блок-схемы получают более узкоспециальные названия, например, схема процесса, схема рабочего процесса, функциональная блок-схема, моделирование бизнес-процессов, модель и нотация бизнес-процессов (BPMN) или схема технологического процесса (PFD). Они тесно связаны с другими распространенными видами схем, такими как диаграммы DFD и диаграммы активности на унифицированном языке моделирования (UML).

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

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

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