Var n, m, sum: integer; begin sum : = 0; repeat writeln('введите числ с которого начинается ряд'); readln(n); writeln('введите число которым заканчивается ряд'); readln(m); until n< m; if odd(n) then n : = n + 1; if odd(m) then m : = m - 1; sum : = (n + m) * (m - n + 2) div 4; writeln('сумма чётных чисел натурального ряда: ', sum); end.
1)2,5 МБ = 16777216 б 5)найдем количество информации в одном символе. Оно равно 7 битlog2(128) = 7 (логарифм от 128 по основанию 2) У нас 800 символов, каждый по 7 бит итого 5600 битВ одном байте 8 бит: 5600/8бит = 700 байт. В 1кбайте 1024 байта (по старой классификации), итого700/1024 = 0.68359375 килобайтаответ: 0.68359375 килобайта 2) При алфавитном подходе к измерению количества информации известно, что если мощность алфавита N (количество букв в алфавите), а максимальное количество букв в слове, записанном с этого алфавита – m, то максимально возможное количество слов определяется по формуле L=Nm. Из условия задачи известно количество слов (L=2048) и количество букв в каждом слове (m=2). Надо найти N из получившегося уравнения 2048=N4. Следовательно, N=2. ответ: 4 буквы.
Объяснение:
Программный код
Организация цикла с предусловием
Организация циклической структуры
Пример программного кода:
count:=0;
sum:=0;
while sum <1000 do
begin
sum:=sum+86; count:=count+1;
end;