Var
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln('Вводите числа, как только введете все числа нажмите любую букву');
while i=1 do begin
readln(str);
val(str,a,c);
if ( a mod 2 <>0) then count := count +a;
if(c<>0) then i:=0;
end;
writeln('Сумма нечетных чисел = ', count);
<span>end.</span>
1 действие.Набор текста.
2.действие.Выделить текст.
3.действие. Гистограмма.
4.действие. Градиетная заливка.
Как-то так.
Переведем 2048 бит в байты, для этого разделим на 8:
2048 / 8 = 2^11 / 2^3 = 2^8 = 256 байт.
То есть за одну секунду передаётся 256 байт.
За 16 секунд будет передано 256*16 = 2^8 * 2^4 = 2^12 = 4096 байт.
Переведем в килобайты, для этого разделим на 1024:
4096 / 1024 = 2^12 / 2^10 = 2^2 = 4 Кбайт.
Начать новый абзац в тексте.