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.
Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку
1. Скретч
2. Какие смайлы можно использовать, а какие нет
3. Как делать презентации
4. Поведение в интернете
5. Поведение за компом
Компьютерная анимация — вид анимации, создаваемый при помощи компьютера. На сегодня получила широкое применение как в области развлечений, так и в производственной, научной и деловой сферах, в мультимедиа технологиях.
<span>относят учебные видеофильмы и звукозаписи, для воспроизведения которых достаточно бытового магнитофона или CD-плеера.</span>
Квадрат имеет площадь больше