Составьте программу для выполнения побитовой операции AND над числами в регистре, при этом регистры должны быть восьмиразрядными, заполнение числами должно происходить последовательно с выпадающего списка. (ПАСКАЛЬ)

Попробуй Program PascalGuru; var s:string;    f,t:text;
function preobr(s:string):string;var i,j,p,n,sered:integer;    gl,zp,slovo:string;    m:array [1..80] of string;beginzp:='!?*,.'; gl:='аоуыэяеёюи';  p:=pos(' ',s); i:=0;        repeat        inc(i);        slovo:=copy(s,1,p-1);        m[i]:=slovo;        delete(s,1,p);        p:=pos(' ',s);        until p=0;        n:=i+1;        m[n]:=s;    for i:=1 to n do     begin    s:=m[i];       if pos(s[length(s)],zp)<>0 then p:=length(s)-1 else p:=length(s);     sered:=(p div 2)+1;    if (not odd(p)) or (p<3) then continue;     if pos(s[1],gl)=0       then continue;     if pos(s[sered],gl)=0   then continue;     if pos(s[p],gl)=0       then continue;      s[1]:=UpCase(s[1]);    s[sered]:=UpCase(s[sered]);    s[p]:=UpCase(s[p]);     m[i]:=s+'('+s[1]+','+s[sered]+','+s[p]+')';     end;         s:='';     for i:=1 to n do s:=s+m[i]+' '; preobr:=s;end;
 beginassign(f,'input.txt'); reset(f);assign(t,'output.txt'); rewrite(t); while not eof(f) do      begin      readln(f,s);      writeln(t, preobr(s) );      end;  writeln('Файл успешно записан...'); close(f);close(t);readln;end.

ответ:

объяснение:

информационная культура — это умение целенаправленно работать с информацией и использовать для ее получения, обработки и передачи компьютерную информационную технологию, современные технические средства и методы.

для свободной ориентации в информационном потоке человек должен обладать информационной культурой как одной из составляющих общей культуры. информационная культура связана с социальной природой человека. она является продуктом разнообразных творческих способностей человека и проявляется в следующих аспектах:

♦ в конкретных навыках по использованию технических устройств, от телефона до персонального компьютера и компьютерных сетей;  

♦ в способности использовать в своей деятельности компьютерную информационную технологию, базовой составляющей которой являются многочисленные программные продукты;  

♦ в умении извлекать информацию из различных источников, как из периодической печати, так и из электронных коммуникационных систем, представлять ее в понятном виде и уметь эффективно использовать;  

♦ во владении основами аналитической переработки информации;  

♦ в умении работать с различной информацией;  

♦ в знании особенностей информационных потоков в своей области деятельности.

неотъемлемой частью информационной культуры является знание информационной технологии и умение применять ее в своей деятельности как для автоматизации рутинных операций, так и для неординарных ситуаций, требующих нетрадиционного творческого подхода.

основными факторами развития информационной культуры являются:

♦ система образования, определяющая общий уровень интеллектуального развития людей;  

♦ информационная инфраструктура, определяющая возможности людей получать, передавать, хранить и использовать информацию;  

♦ развитие страны, определяющей материальные возможности людей при использовании современных информационных технических средств: компьютеров, телевизоров, электронных средств коммуникации и т. п.

одним из существенных показателей информационной культуры в нашей стране является знание языка. сложившаяся ситуация в компьютерной индустрии такова, что практически все современные версии программных продуктов, определяющих информационную технологию, представлены на языке. на этом языке реализуется интерфейс пользователей с основными информационных ресурсов, осуществляется профессиональное взаимодействие с операционными системами компьютеров. в большинстве областей науки, бизнеса и технологий также доминирует язык.