Замечание: можно здесь обойтись и без переменной 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.
Результат:двтльнй фкт н ткст н зк НРЗБРЧВ кзвтс двльн прст чтть Дсттчн нбльшй трнрвк в смжт т длть
1.
a)компьютер универсальная машина для работы с информацией
б)Информацию, представленную в форме, пригодной для хранения, передачи и обработки компьютером, называютданными.
в)Обработку данных компьютер
осуществляет с
установленных на нем программ.
г)Монитор, принтер и акустические
колонки образуют группу
устройств ВЫВОДА.
д)К устройствам ПК относятся
устройства: системный блок, монитор,
клавиатура, мышь.
е)клавиатура микрофон сканер образуют группу устройств ввода информации
ж)информация хранящаяся в долговременной памяти компьютера как единое целое и обозначенное именем, называется-файл
з)часть имени файла которая присваивается программой в которой он создавался расщирением
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.
Результат:двтльнй фкт н ткст н зк НРЗБРЧВ кзвтс двльн прст чтть Дсттчн нбльшй трнрвк в смжт т длть