Вписьменности языка нрзбрчв отсутствуют гласные буквы и знаки препинания, в остальном язык ничем не отличается от языка. чтобы из слова языка получить слово языка нрзбрчв, достаточно выкинуть из слова все гласные. чтобы перевести предложение, нужно перевести каждое слово и выкинуть знаки препинания. регистр букв следует оставить неизменным. напишите функцию translate(text), которая переводит текст с языка на нрзбрчв. свой результат функция должна записать во внешнюю переменную translatedtext. формат ввода translatedtext = none translate("удивительный факт, но текст на языке неразборчиво оказывается довольно просто читать. достаточно небольшой тренировки - и вы сможете это делать.") формат вывода translatedtext == "двтльнй фкт н ткст н зк нрзбрчв кзвтс двльн прст чтть дсттчн нбльшй трнрвк в смжт т длть" примечания слова в нрзбрчв разделяются ровно одним пробелом. обратите внимание, что при переводе некоторые короткие слова “” полностью. следите за тем, чтобы в этом случае не появлялись лишние пробелы.
var translatedText:string;
function translate(s:string):string;
const
gl:set of char=
['А','Е','Ё','И','О','У','Ы','Э','Ю','Я','а','е','ё','и','о','у','ы','э','ю','я'];
zn:set of char=['.',',','-','!','?','"',':'];
var i:integer;
begin
for i:=length(s) downto 1 do
if s[i] in gl+zn then delete(s,i,1);
while pos(' ',s)>0 do delete(s,pos(' ',s),1);
translate:=s;
translatedText:=s;
end;
begin
translate('Удивительный факт, но текст на языке НЕРАЗБОРЧИВО оказывается довольно просто читать. Достаточно небольшой тренировки - и вы сможете это делать.');
writeln(translatedText);
end.
Результат:двтльнй фкт н ткст н зк НРЗБРЧВ кзвтс двльн прст чтть Дсттчн нбльшй трнрвк в смжт т длть