Var
m: array [1 .. 16] of integer;
i,countMin: integer;
begin
for i := 1 to 16 do
begin
randomize;
m[i] := random(100);
if(m[i] <10) then
countMin:=countMin+1;
end;
writeln('Исходный массив');
for i := 1 to 16 do
writeln('m[', i, ']=', m[i], ' ');
writeln("Количество элементов <10",countMin);
readln;
end.
Значение функции F всегда больше нуля.
цикл будет выполняться от -20 до 0 двадцать раз
0 двадцать первый раз
от 0 до 20 ещё двадцать
Итого Сорок один
А) Чтобы перевести из 2-ой в 8-ую , нужно отделить от числа три цифры(так как в 8-ой системе двоичный триад (группа по 3 цифры) и под отдельности считаешь, а потом соединяешь получившееся числа! Вот пример: 101001, разбиваем по 3 цифры и считаем 101=>1*2^2+0*2^1+1*2^0=5 001=>0*2^2+0*2^1+1*2^1=1 В ответе получается число 51 в 8-ой системе! Чтобы в 16 систему перевести отделять по 4 цифры! Пример с тем же числом: 101001, нам не хватает 2-е цифры, значит добавляем 00, перед этим числом 00101001 и считаем 0010=>0*2^3+0*2^2+1*2^1+0*2^0=2 1001=>1*2^3+0*2^2+0*2^1+1*2^0=9 В ответе 29!
А в 10-ую переводи просто, не отделяя цифр и все!
Б)A=10 F=15 , вот и переводи 1015 в 2-ую систему , методом деления на 2!
6А) 101
6Б) 11110
6С) 11001
7А) 3
7Б) 7
7С) 2