Заполните пропущенные слова и словосочетания в предложении в порядке очередности, через запятую: Счеты "Абак" появились в Западной Европе … века, счеты … появились в Китае в VI веке, счеты Серобян появились в . XV-XVI веке.
Для решения примера вспоминаем, что при переходе от шестнадцатиричной системы счисления к двоичной достаточно заменить каждую шестнадцатиричную цифру четырьмя двоичными (тетрадой). Предлагаемое в условии число представляет собой десятичную дробь, т.е. имеет целую и дробную части. Для целой части незначащими будут левые нули и мы будем искать их в первой тетраде. Для дробной части незначащие нули - последние и мы будем их искать в последней тетраде. Первая тетрада - представление 1(16)=0001(2). Левые три нуля незначащие и их удаляем, остается 1. Последняя тетрада - представление Е(16)=1110(2). Тут один незначащий ноль - правый, остается 111.. Остальные тетрады переписываем без изменения. 12АС,6Е(16)=1 0010 1010 1100 , 0110 111 (2) Считаем количество нулей в записи: 9. Это и есть ответ.
Const n = 40; var s,i,ind,k1,k2: integer; mas: array[1..n] of integer; begin s := 0; for i:=1 to n do s := s+ mas[i]; Writeln ('сумма элементов массива: ',s);
s := 1; for i:=1 to n do s := s * mas[i]; Writeln ('произведение элементов массива: ',s);
s := 0; for i:=1 to n do s := s + mas[i]*mas[i]; Writeln ('сумма квадратов элементов массива: ',s);
s := 0; for i:=1 to 6 do s := s+ mas[i]; Writeln ('сумма первых 6 элементов массива: ',s);
ind:=0; repeat Writeln('Введите К1: '); read(k1); Writeln('Введите К2: '); read(k2); if (k2>k1) then ind := 1; until (ind=1);
s := 0; for i:=k1 to k2 do s := s+ mas[i]; Writeln ('сумма элементов массива с k1-го по k2-й: ',s);
Сама не знаю это у меня сор