Кросфорд. 1) алфавит содержащий два символа. 2) процесс связаный с изменением информации. 3) конечный набор отличных друг от друга символов (знаков), используемых для представления информации. 4) языки применяемые специалистами в профессиональной деятельности. 5) 8192 бита. 6) содержание сигналов, воспринимаемое человеком непосредственно или с специальных устройств, расширяющее его знания об окружающем мире и протекающих в нем процессах. 7) 1024 мегабайта. 8) информационный вес символа двоичного алфавита. 9) 1024 килобайта. 10) количество символов, входящих в алфавит. 11) 8 битов. 12)заменитель объекта, который позволяет информацию вызвать в сознании принимающего информацию образ объекта.

1. Двоичный

2. Информационный

3. Алфавит

4. Формальный

5. Килобайт

6. Информация

7. Гигабайт

8. Бит

9. Мегабайт

10. Мощность

11. Байт

12. Знак

Объяснение:

Думаю, объяснения не нужны

Program zadacha;

Const n = 10;

Type mas=array[1..n] of integer;

Var s,i,k,d:integer;

m:mas;

Begin

s:=0;

k:=0;

readln(d);

For i:=1 to n do

read(m[i]);

For i:=1 to n do

if m[i]<d then begin

s:=s+m[i];

k:=k+1;

end;

writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);

end. (Это решение для случая если вы вводите сразу весь массив чисел)

Program zadacha;

Const n = 10;

Var s,i,k,d,m:integer;

Begin

s:=0;

k:=0;

readln(d);

for i:=1 to n do begin

readln(m);

if (m < d) then begin

s:=s+m14;

k:=k+1;

end;

end;

writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);

end. (А это решение для того случая когда вы вводите элементы по одному )

Var       
i, a, b, c: integer;

function check_is(a, b, c: integer):
 boolean;
begin     
 if a >= b + c then check_is := false
else        if b >= a + c then
 check_is := false else     
  if c >= a + b then check_is := false else     
         check_is := true;           
       end;
procedure check_how(a, b, c: integer);begin 
     if ((a = b) and (b = c) and (a = c)) then writeln('равносторонний') else   
    if ((a = b) or (b = c) or (a = c)) then writeln('равнобедренный') else              writeln('разносторонний');     
  end;

begin     
 writeln('Введите стороны треугольника');   
    read(a, b, c);   
    if check_is(a, b, c) then check_how(a, b, c) else writeln('Нет такого треугольника!');          
   end.