Составляй сам(а). Ты учишься или кто?
Мощность алфавита (N) равна 256, значит информационный вес символа (i) равен 8 бит, т.к.
. Информационный объем (I) равен K*i, где K - количество символов.
11 симв. * 8 бит = 88 бит = 11 байт
Ответ: 11 байт
Знать бы, какой ввод данных
пусть он будет с клавиатуры, массив А из оценок N учеников
for i:=1 to N do begin
sum:=sum+A[i]; {это для среднего балла}
if (A[i]=4) or (A[i]=5) then
k1:=k1+1; {счетчик отличников-хорошистов}
if A[i]=2 then
k2:=k2+1; {счетчик двоечников}
end;
writeln('Количество учеников, написавших на 4 и 5: ', k1);
if k2>0 then
writeln('Двоечники есть')
else writeln('Двоечников нет');
writeln('Средний балл: ', sum/N:3:2);
end.
var i,s:integer;
begin
for i:=1 to 10 do s:=s+i;
writeln (s)
end.
<em>var a:integer; </em>
<em>begin </em>
<em>writeln('Введите целое число'); </em>
<em>read(a); </em>
<em>if ((a mod 10) mod 2=1) then writeln('Последняя цифра числа - нечетная.') </em>
<em>else writeln('Последняя цифра чиста - четная.'); </em>
<em>end.</em><span><em> </em></span>
