Пппппарпрарараврарарарары
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. doc, rtf, txt - это текстовые
bmp, gif, jpg это графические
avi, mpeg - это видео
wav, mp3 - медиафайлы
4. 5Кб*1024*8=40960 бит
5Mb*1024*1024=5242880 байт
Udalit-delete[ ] s, podshitat obwee kolichestvo simvolov strlen(s)