Регистрация
Theknopa444
03.01.2023 17:45
Информатика
Есть ответ 👍

Сна pascalabc. найти и вывести все шипящие буквы ( без повторений ), которые встретились в самом длинном слове.

274
303
Посмотреть ответы 2

Ответы на вопрос:

jhdjshshdh
jhdjshshdh
4,6(90 оценок)
Var   a: array [1..4] of char;   s: string;   i: byte : = 1; begin   readln(s);   while (i < length(s)) do   begin     if ((not(s[i] in ['ж', 'ч', 'ш', 'щ'])) or (pos(s[i], s) > i)) then       delete(s, i, 1)     else       i += 1;   end;   writeln(s); end. суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку
MezarYT
MezarYT
4,8(35 оценок)

по способу восприятия информация не может быть: тестовой, визуальной, символьной, графической

Популярно: Информатика