<span>Современным компьютерам предшествовали ЭВМ нескольких поколений. В развитии ЭВМ выделяют пять поколений. В основу классификации заложена элементная база, на которой строятся ЭВМ. </span>
1. Отметим, что приписывание к двоичному числу двух младших
разрядов предполагает предварительный сдвиг этого числа влево на два разряда
(что равносильно умножению на 2²=4), а затем установку двух младших разрядов в
соответствующие приписываемым битам значения. Следовательно, можно записать,
что 4N+a>43, где a - число, образованное приписываемыми справа битами,
которое не может превышать 11(2)=3(10)
4N+[0..3]≥44, откуда минимальное N=11
Теперь запишем N=11 в двоичной системе и применим к нему
заданный алгоритм.
N=1011(2), число единиц три, нечетное, приписываем 1,
получая 10111.
Теперь число единиц четное, приписываем 0 и получаем
R=101110(2).
В десятичной записи ему соответствует число 46.
<span>Ответ: 46</span>
Разделим исходный код на группы по 3 разряда.
1011012 = 101 101 2
Затем заменяем каждую группу на код из таблицы.
Двоичная СС Восьмеричная СС
000 0
001 1
010 2
011 3
100 4
101 5
110 6
111 7
Получаем число:
101 101^2 = 55^8
Var A,S1,S2,i:integer;
Begin
S1:=0;
S2:=0;
Write('Введите результаты первого пятиборца: ');
For i:= 1 to 5 do
Begin
Read(A);
S1:=S1+A;
End;
Write('Введите результаты второго пятиборца: ');
For i:= 1 to 5 do
Begin
Read(A);
S2:=S2+A;
End;
WriteLn('S1 = ',S1);
WriteLn('S2 = ',S2);
End.
Пример:
Введите результаты первого пятиборца: 1 2 3 4 5
Введите результаты второго пятиборца: 5 6 7 8 9
S1 = 15
S2 = 35
//PascalABC.NET v3.3 1633
const n = 15;
var arr: array [1..n] of integer;
begin
for var i:=1 to n do
arr[i]:=random(-5,5);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to n do
if arr[i] > 0 then
count += 1;
writeln('Количество положительных элементов: '+count);
end.