В письменности языка НРЗБРЧВ отсутствуют гласные буковкы и знаки препинания, в
В письменности языка НРЗБРЧВ отсутствуют гласные буковкы и знаки препинания, в остальном язык ничем не отличается от русского языка. Чтоб из слова российского языка получить слово языка НРЗБРЧВ, довольно выбросить из слова все гласные. Чтобы перевести предложение, нужно перевести каждое слово и выбросить знаки препинания. Регистр букв следует бросить неизменным. Напишите функцию 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)gt;0 do delete(s,pos(' ',s),1);
translate:=s;
translatedText:=s;
end;
begin
translate('Дивный факт, но текст на языке НЕРАЗБОРЧИВО оказывается довольно просто читать. Довольно маленькой тренировки - и вы можете это делать.');
writeln(translatedText);
end.
Итог:двтльнй фкт н ткст н зк НРЗБРЧВ кзвтс двльн прст чтть Дсттчн нбльшй трнрвк в смжт т длть
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.