2. Какая панель инструментов используется для форматирования?​

Панель форматирования – это специальная панель, находящаяся под панелью инструментов. Она содержит набор инструментов форматирования текстов. Если эта панель не отображается в рабочем окне программы Word Раd, ее отображение включают в меню Вид.

Program Alexandra_1;
uses crt;
const n=5;
var
  a:array[1..n] of integer;
  i, sum: integer;
begin
  sum:=0;
  for i:=1 to n do
  begin  
    write('Введите ',i,'-e число ');
    readln(a[i]);
    if a[i]>0 then sum:=sum+a[i];
  end;
  writeln('Сумма положительных элементов ',sum);
end.

Program Alexandra_2;
uses crt;
const n=7;
var
  a:array[1..n] of integer;
  i, num: integer;
begin
  num:=0;
  for i:=1 to n do
  begin  
    write('Введите ',i,'-e число ');
    readln(a[i]);
    if (a[i]>0) AND (a[i] mod 2 = 0) then num:=num+1;
  end;
  writeln('Количество четных положительных элементов ',num);
end.

Program Alexandra_3;
uses crt;
const n=6;
var
  a:array[1..n] of integer;
  i, tum: integer;
begin
  tum:=1;
  for i:=1 to n do
  begin  
    write('Введите ',i,'-e число ');
    readln(a[i]);
    if a[i]>0 then tum:=tum*a[i];
  end;
  writeln('Произведение положительных элементов ',tum);
end.

1) E1A0(16) = 1110 0001 1010 0000(2) 
количество единиц = 6

2) 11001011(2) = 128+64+8+2+1 = 203(10)
11111000(2) = 128+64+32+16+8 = 248(10)
11011011(2) = 128+64+16+8+2+1 = 219(10)
10011111(2) = 128+16+8+4+2+1 = 159
11100100(2) = 128+64+32+4 = 228(10)
D4(16)+20(8) = 13*16+4 + 2*8 = 212+16 = 228(10)
Только одно число больше 228(10):
  это 11111000(2) = 128+64+32+16+8 = 248(10)

3) 11011100(2) = 128+64+16+8+4 = 220(10)
DF(16) = 13*16+15 = 208+15 = 223(10)
Количество чисел, удовлетворяющих неравенству - два (221 и 222).