Var
x,y,z,k:boolean;
begin
writeln('Введите значения x,y,z(true или false)');
readln(x,y,z);
k:=not(x or y) and z;
write('Значение выражения: ',k);
<span>end.</span>
Два разряда значит в записи числа участвуют две цифры, то есть 10, 11,12,13,20,21,22,23,30,31,32,33. В четверичной системе счисления двухразрядными будут эти числа.
512 граммов
1*2=2
2*2=4
4*2=8
8*2=16
16*2=32
32*2=64
64*2=128
128*2=256
256*2=512
271 (10) = <span>100001111 (2) , 417 (8) , 10F (16)
43 (10) = </span><span>101011 (2) , 53 (8) , 2B (16)
271 (10) + 43 (10) = </span><span>314 (10) ,100111010 (2) , 472 (8) , 13A (16)</span>
Var A: Array of Integer;
N: Integer;
i: Integer;
sum: Integer;
Begin
Randomize;
Write('N = ');
ReadLn(N);
SetLength(A, N + 1);
WriteLn('Массив:');
For i := 1 To N Do
Begin
A[i] := Random(50) - 25;
Write(A[i] + ' ');
End;
WriteLn;
WriteLn('Без отрицательных:');
For i := 1 To N Do Begin
If A[i] >= 0 Then
Write(A[i] + ' ');
End;
sum := 0;
WriteLn;
WriteLn('Среднее арифметическое:');
For i := 1 To N Do Begin
sum := sum + A[i];
End;
WriteLn(sum / N);
<span>End.</span>