1)
var massive :
array [1..100] of integer;
i : integer;
begin
// рандомизируем сид
randomize();
for i := 1 to 100 do begin
// заполняем массив случайными числами от -100 до 100
massive[i] := random(201)-100 ;
// выводим число, если оно больше нуля и кратно двум.
if ((massive[i] > 0) and (massive[i] mod 2 = 0))
then write(massive[i]+' ');
end;<span>
end.
2)
var a :
array [1..50] of integer;
i ,summ: integer;
begin
// рандомизируем сид
randomize();
// инициализируем переменную суммы
summ := 0;
for i := 1 to 50 do begin
// заполняем массив случайными числами от -100 до 100
a[i] := random(201)-100 ;
// суммируем если кратно трем
if a[i] mod 3 = 0 then begin summ := summ + 1; write(a[i] + ' '); end;
end;
// выводим результат
writeln();
writeln('Сумма чисел кратных трем = ' + summ);
end.
</span>
Для начала запишем над каждой цифрой нумерацию с права на лево начиная с нуля
6¹5⁰₈=6*8¹+5*8⁰=48+5(любое число в нулевой степени равно 1)=53₁₀
Высказывание - предложение, которое может быть истинным или ложным.
<span>а) Все натуральные числа целые. - истинное высказывание
</span><span>б) Существуют ли белые слоны? - вопросительное предложение не является высказыванием.</span>
При переводе числа из одной системы счисления в другую количественное значение числа не изменяется. Для перевода чисел из произвольной системы счисления в десятичную необходимо его записать в виде многочлена, состоящего из произведений цифр числа и соответствующей степени основания произвольной системы счисления. (Основанием системы счисления называется количество цифр и символов, применяющихся для изображения числа.)
7B₁₆ = 7∙16¹+11∙16⁰ = 112+11 = 123₁₀
(В качестве цифр шестнадцатеричной системы счисления используются цифры от 0 до 9 и латинские буквы от A до F. Буквы A = 10₁₀, B = 11₁₀, C = 12₁₀, D = 13₁₀, E = 14₁₀, F = 15₁₀.)
1010₂ = 1∙2³+0∙2²+1∙2¹+0∙2⁰ = 8+0+2+0 = 10₁₀
<span>
XXXIII (римские цифры) = 33</span>₁₀<span>
(</span>Римские цифры — цифры, использовавшиеся древними римлянами в их непозиционной системе счисления. Натуральные числа записываются при помощи повторения этих цифр. При этом, если большая цифра стоит перед меньшей, то они складываются (принцип сложения), если же меньшая стоит перед большей, то меньшая вычитается из большей (принцип вычитания). Последнее правило применяется только во избежание четырёхкратного повторения одной и той же цифры. <span><span>1</span></span>₁₀ = <span><span> I,<span> 5</span></span></span>₁₀ = <span><span>V, </span><span>10</span></span>₁₀ = <span><span>X, </span><span>50</span></span>₁₀ = <span><span>L, </span><span>100</span></span>₁₀ = <span><span>C, </span><span>500</span></span>₁₀ = <span><span>D, 1</span><span>000</span></span>₁₀ = <span><span><span>M)
</span></span></span>
123 + 10 - 33 = 100
Для перевода целого числа из десятичной системы счисления в произвольную систему счисления необходимо последовательно делить это число и получаемые целые частные на основание произвольной системы счисления до тех пор, пока целое частное не станет равным нулю. Старшей цифрой в записи числа служит последний остаток, а следующие за ней цифры образуют остатки от предшествующих делений, выписываемые в последовательности, обратной их получению.
100₁₀ = 1100100₂
100/2 = 50 (целое частное) + 0 (остаток)
50/2 = 25 (целое частное) + 0 (остаток)
25/2 = 12 (целое частное) + 1 (остаток)
12/2 = 6 (целое частное) + 0 (остаток)
6/2 = 3 (целое частное) + 0 (остаток)
3/2 = 1(целое частное) + 1 (остаток)
1/2 = 0 (целое частное) + 1 (остаток)
(Записываем остатки снизу вверх слева направо.)
Ответ: 3 единицы в двоичной записи полученного числа (1100100₂)
Var i: byte;
begin i := 10; while i <= 100 do begin if not odd(i) then write(i, ' '); inc(i); end; writeln; i := 10; repeat if not odd(i) then write(i, ' '); inc(i); until i = 101; writeln; for i := 10 to 100 do if not odd(i) then write(i, ' ');end.