1024 Кб = 1024×1024 байта
1 бит = 1/8 байта
1 Кб = 1024 байта
В порядке убывания: 1024 Кбайта, 1 Кбайт, 1000 байт, 1 байт, 1 бит
89
берём 64 Это 2^6 степени
89-64=25 (1)
25-32 не надо (0)
25-16=9 (1)
9-8=1 (1)
1-4 не надо (0)
1-2 не надо (0)
1-1=0 (1)
Теперь считает единицы и нули сверху вниз
1011001
600
берём 512 это 2^9 степени
600-512=88(1)
88-256 не надо (0)
88-128 не надо (0)
88-64= 24 (1)
24-32 не надо (0)
24-16= 8 (1)
8-8=0(1)
0-4 не надо (0)
0-2 не надо (0)
0-1 не надо (0)
опять считаем 1001011000
2010 берём 1024 это 2^10 степени
2010-1024=986(1)
986-512= 474(1)
474-256=218(1)
218-128=90(1)
90-64=26(1)
26-32 не надо (0)
26-16=10(1)
10-8=2(1)
2-4 не надо (0)
2-2=0 (1)
0-1 не надо (0)
считаем
11111011010
считал в основном устно, мог ошибиться. Но главное, чтоб принцип был понятен
Program Temperatura;
Var d, k, T: integer; f: byte; a: array [1..7] of integer;
Begin f := 0;k := 0;
Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;
for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;
if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.
Const
R=14;
var
i,k:integer;
W:array[1..R] of longint;
begin
Write('Введите число членов последовательности (1-',R,'): ');
Readln(k);
if (k<1) or (k>R) then Writeln('Вы ввели неверное значение')
else begin
Write('Члены последовательности: 1');
w[1]:=1;
for i:=2 to k do
begin
w[i]:=5*w[i-1];
Write(', ',w[i])
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Введите число членов последовательности (1-14): 14
Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125
