Ответ:
program numsum;
uses
SysUtils;
var
n, i, sn: Integer;
s: string;
begin
Write ('Введите четырехзначное число: ');
ReadLn (n);
n := Abs (n);
if (n > 9999) or (n < 1000) then begin
WriteLn ('Введенное число не четырехзначное');
ReadLn;
Exit;
end;
s := IntToStr (n);
sn := 0;
for i := 1 to Length (s) do
sn := sn + StrToInt (s [i]);
WriteLn ('Сумма цифр числа = ', sn);
if sn mod 5 = 0 then
WriteLn ('Сумма цифр делится на 5')
else
WriteLn ('Сумма цифр не делится на 5');
ReadLn;
end.
64 · 512 = 2⁶ · 2⁹ = 2¹⁵ бит
32 Кб = 2⁵ Кб = 2⁵ · 1024 = 2⁵ · 2¹⁰ = 2¹⁵ байт = 2¹⁵ · 8 = 2¹⁵ · 2³ = 2¹⁸ бит
2¹⁸ = i · 2¹⁵
i = 2¹⁸ / 2¹⁵ = 2¹⁸⁻¹⁵ = 2³ = 8 бит на каждый цвет
<h2>Ответ</h2>
256
Var a,b,c,d,sr:real;
begin
read(a,b,c,d);
sr:=(a+b+c+d)/4;
if (a<b) and (b<c) and (c<d) then
begin
a:=d;
b:=d;
c:=d;
end
else
if (a>b) and (b>c) and (c>d) then
begin
a:=sr;
b:=a;
c:=a;
d:=a;
end
else
begin
a*=a;
b*=b;
c*=c;
d*=d;
end;
write(a,' ',b,' ',c,' ',d);
<span>end.</span>
Ответ:
Объяснение:
1.
93₁₀=1011101₂
93:2=46 (1 остаток)
46:2=23 (0 остаток)
23:2=11 (1 остаток)
11:2=5 (1 остаток)
5:2=2 (1 остаток)
2:2=1 (0 остаток)
1
2)
109₁₀=155₈
109:8=13 (5 остаток)
13:8=1 (5 остаток)
1
3)
179₁₀=B3₁₆
179:16=11 (3 остаток)
11:16=0 (11 остаток)
4)
33₁₀=45₇
33:7=4 (5 остаток)
4:7=0 (4 остаток)
5)
113₈=75₁₀
1*8^2+1*8^1+3*8^0=75
6)
11001011₂=203₁₀
1*2^7+1*2^6+0*2^5+0*2^4+1*2^3+0*2^2+1*2^1+1*2^0=128+64+8+2+1=203
7)
1AE₁₆=430₁₀
1*16^2+10*16^1+14*16^0=256+160+14=430
8.
124₅=
1*5^2+2*5^1+4*5^0=25+10+4=39₁₀
9 бит больше!!!!!!!!!!!!!!!!!