var ar:array[1..10] of integer; max,min,i,kmax,kmin:integer; begin randomize;
max:=0; min:=1000;
for i:=1 to 10 do begin ar[i]:=random(1000)+1; if (ar[i] > max) then begin max:=ar[i]; kmax:=i; end else if (ar[i] < min) then begin min:=ar[i]; kmin:=i; end; write(ar[i],' '); end;
writeln();
if (kmax > kmin) then for i:=kmin+1 to kmax-1 do write(i,' ') else if (kmax < kmin) then for i:=kmax+1 to kmin-1 do write(i,' '); end.
1) Как представлено число 8310 в двоичной системе счисления? В этом вопросе нет ни одного числа двоичного кода. В двоичном коде будет: 10000001110110 2) Дано: , . Какое из чисел С, записанных в двоичной системе счисления, удовлетворяет неравенству ? Я думаю, что вопрос звучал так: Дано: a=222 8 , b=94 Какое из чисел С, записанных в двоичной системе счисления, удовлетворяет неравенству?ответ:2) С = 250(8сч) удоволетворяет неравенству а=247 меньше С=250 и b= 251 больше С=250. 3) Даны 4 целых числа, записанные в двоичной системе... ответ: все четыре числа меньше чем 396 4) Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 39 оканчивается на 3. ответ: 4, 6, 9, 12, 18, 36 5) Запись числа 30 в некоторой системе счисления выглядит так: 110N. Найдите основание системы счисления N. 6) Решить уравнение: где???????????????? 7) Сколько единиц в двоичной записи числа 42016 + 22018 – 6? Я не смог решить 8) Значение арифметического выражения: 274 – 95 + 38 – 25 записали в системе счисления с основанием 3. Сколько цифр «2» содержится в этой записи? Я не смог решить
var
ar:array[1..10] of integer;
max,min,i,kmax,kmin:integer;
begin
randomize;
max:=0;
min:=1000;
for i:=1 to 10 do begin
ar[i]:=random(1000)+1;
if (ar[i] > max) then
begin max:=ar[i]; kmax:=i; end
else if (ar[i] < min) then begin min:=ar[i]; kmin:=i;
end;
write(ar[i],' ');
end;
writeln();
if (kmax > kmin) then for i:=kmin+1 to kmax-1 do write(i,' ')
else if (kmax < kmin) then for i:=kmax+1 to kmin-1 do write(i,' ');
end.
P.S. В решении выше есть далеко ни одна ошибка ;)