Var
a:array[1..10]of integer;
k,i:integer;
begin
randomize;
k:=1;
for i:=1 to 10 do
a[i]:=random(30)-20;
for i:=1 to 10 do
if a[i]>0 then
k:=k+1;
writeln('kolichestvo>0:',k);
for i:=1 to 10 do
writeln(a[i]);
end.
Ответ:
1011₂ = 1*2⁰ + 1*2¹ + 0*2² + 1*2³ = 11₁₀
11₁₀ = 3*8⁰ + 1*8¹ = 13₈
11₁₀ = 11*16⁰ = B₁₆
255₈ = 5*8⁰ + 5*8¹ + 2*8² = 173₁₀
173₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10101101₂
173₁₀ = 13*16⁰ + 10*16¹ = AD₁₆
15₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ = 1111₂
15₁₀ = 7*8⁰ + 1*8¹ = 17₈
15₁₀ = 15*16⁰ = F₁₆
CC₁₆ = C*16⁰ + C*16¹ = 204₁₀
204₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11001100₂
204₁₀ = 4*8⁰ + 1*8¹ + 3*8² = 314₈
A = 10 b = 3
если 10 > 3 то b = 3 + 12 = 15
если 10 > 15 то ,,, иначе
a= 10-7=3
ответ
a =3
b=15
Ответ:
66 лет
Объяснение:
program Owl;
var
n: Integer;
begin
for n := 10 to 99 do
if ((n mod 6 = 0) xor (n mod 10 = 2)) and ((n > 32) xor (n mod 10 = 5)) and ((n mod 11 = 0) xor (n < 33)) then
WriteLn (n);
ReadLn;
end.