Оператор варианта. на паскале . 1. вывести нечетные целые числа от 1 до 20 2.вывести четные целые числа от 15 до 40

Program pr; var i: integer; begin for i: =1 to 20 do if (i mod 2=1) then write(i,' '); writeln(); for i: =15 to 40 do if (i mod 2=0) then write(i,' '); end.

1/ var i: integer; begin for i: =1 to 20 do begin if i mod 2=1 then write(i, '   '); end; end. 2/ var i: integer; begin for i: =15 to 40 do begin if   i  mod 2=0 then write(i,'   '); end; end.

Const n=20; var a: array[1..n] of integer; i,j,t,x,i1,i2: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21); write(a[i],' ') end; writeln; for i: =1 to n-1 do for j: =1 to n-i do if a[j]< a[j+1] then  begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end; writeln('отсортированный массив: '); for i: =1 to n do write(a[i],' '); writeln; write('x = '); readln(x); i1: =1; i2: =n; repeat i: =(i1+i2) div 2; if a[i]> x then i1: =(i1+i2) div 2+1; if a[i]< x then i2: =(i1+i2) div 2-1; until (a[i]=x)or(i1> i2); if a[i]=x then  begin  writeln('искомый(ые) номер(а) элемента(ов): '); while (i> 0)and(a[i]=x) do i: =i-1; i: =i+1; while (i< =n)and(a[i]=x) do begin write(i,' '); i: =i+1;   end; end else writeln('элемент не найден'); writeln; end. pascal abc.

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

в качестве примера знаковой системы обычно приводят  язык  (как в письменной форме так и, в случае естественных языков, в форме речи), метаязык .

изучает знаковые системы  семиотика.