Здравствуйте,
10-11 класс
|
помогите с задачей на PascalABC.
Найти и вывести все шипящие буквы ( без повторений ), которые встретились в самом длинном слове.
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.
Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку
Другие вопросы из категории
2.Почему современные персональные компьютеры доступен для массового потребления?
Класс может иметь интерфейс для доступа к его экземплярам извне. Он реализуется модификаторами доступа:
1. private
2. inline
3. public
4. protected
5. static
Какого типа эта система:естественная или искусственная;
Выделите входящие в нее подсистемы;
Выделите материальные и информационные связи;
Какие изменения в структуре школы следует сделать,чтобы она лучшим
образом выполняла своё назначение?
Читайте также
острове каждый год появляется сундук с 100 кг золотого песка, к острову с одной стороны высаживается х пиратов, а с другой у матросов. Они дерутся за клад, в битве погибает 70% участников, 26% тяжело ранены. Монеты делятся среди оставшихся 4%. Определить количество победителей, тяжелораненых, погибших, а также количество золотого песка на 1 человека .
элемента которого составлены по следующему правилу:
1-й равен квадрату текущего индекса, увеличенному на 5;
2-й равен целой части квадратного корня из предыдущего элемента;
3-й равен целой части от деления двух предыдущих элементов.