Информатика.вопросы по теме word: 1.чтобы создать новую таблицу, 2.чтобы вставить 2 столбца , 3.чтобы перенести рисунок на другое место, 4.чтобы изменить размер рисунка по горизонтали, по вертикали, пропорционально 5.чтобы отформатировать текст в ячейке таблицы, 6.чтобы удалить всю таблицу, 7.чтобы разделить на колонки только нужную часть текста,

Program ToDec;

Uses crt;
var s:string;
n,l,i:integer;

 

function Pow(x,y:integer):integer;
begin
     if y>0 then Pow:=Pow(x,y-1)*x
               else Pow:=1;
end;

function ToDec(A : string) : integer;
var L : Byte;
begin
      if A = '' then ToDec := 0
                else begin
                              L := length(A);
                               case A[1] of
                                     '0' : ToDec := ToDec(Copy(A, 2, L - 1));
                                     '1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
                                end;
     end;
end;

begin
     clrscr;
     write('Введите двоичное число: ');
     readln(s);
      writeln('Это число в десятичной системе : ', ToDec(S));
 readkey;
end.

 

 

 

ответ: 4Объяснение:

Создаём массив из 11 элементов, который называем Dat:

целтаб Dat[1:11]

Объявляем переменные к и ш, являющимися целыми числами:

цел к, ш

Заполняем массив Dat:

Dat[1]:=21 Dat[4]:=19 Dat[7]:=23 Dat[10]:=29 Dat[2]:=23 Dat[5]:=25 Dat[8]:=21 Dat[11]:=19 Dat[3]:=20 Dat[6]:=22 Dat[9]:=22

Присваиваем переменной ш значение 0.

ш:=0

Объявляем цикл от 1 до 11, то бишь пробегаемся по массиву Dat и смотрим, если значение элемента больше 22, то прибавляем к переменной ш 1:

нц для к от 1 до 11 если Dat[к]>22  то    ш:=ш+1 Все кц

Выводим на экран значение переменной ш:

вывод ш

Таким образом мы видим, что программа подсчитывает количество классов в которых больше 22 учеников. Таких классов будет 4: 2(23), 5(25), 7(23) и 10(29).