0010 * 1011 = 0010 + 00100 + 000000 + 0010000 = 10110
A = 0, B = 0, C = 1, D = 1, E = 0.
Ответ: (3)
Поле ввода
поле вывода
поле для рисунка/таблицы
Программа приложена файлом для Visual Basic for Applications
Ниже текст этой программы продублирован
Sub trans_sequence(ByVal M)'заполнение массива и создание преобразованной последовательности чисел N = M Dim mas() ReDim mas(M) Sg = "" Sf = "" Randomize For i = 1 To M mas(i) = Round((Rnd(100) - 0.5) * 100) Sg = Sg + Str(mas(i)) If (mas(i) < 0) Then mas(i) = mas(i) * mas(i) Sf = Sf + Str(mas(i)) If i <> M Then Sg = Sg + "," Sf = Sf + "," End If Next i MsgBox "последовательность чисел " + Sg + Chr(10) + "преобразованная последовательность " + SfEnd Sub
Sub test() trans_sequence (25)End Sub
Program n1;
type z= array of integer;
var a:z;
d,n,i,j,x: integer;
begin
n:=0;
while true do
begin
readln(d);
if d=0 then break;
n:=n+1;
setlength(a,n);
a[n-1]:=d;
end;
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i]<a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln(a[1]);
end.
Это надо делать в Программе Ехел. Сейчас отправлю.