Sкольца=S1-S2
Sкольца=(ПиR1^2)-(ПиR2^2)
адреса ячеек диапазона С5:С9
С5
С6
С7
С8
С9
var
a, b, c, d : integer;
begin
d := 0;
writeln ('Введите 3 числа');
readln (a, b, c);
if a < 0 then inc (d);
if b < 0 then inc (d);
if c < 0 then inc (d);
if d = 0 then writeln ('Среди введенных чисел нет отрицательных')
else if d = 1 then writeln ('Среди введенных чисел 1 отрицательное число')
else writeln ('Среди введенных чисел ', d, ' отрицательных числа');
end.
Var n,m,p,s:integer;
begin
write('n=');
readln(n);
m:=n;k:=0;
write('цифры, которые >=4 и <=8 : ');
while m<>0 do begin
p:=m mod 10;
m:=m div 10;
if (p>=4) and (p<=8) then begin
write(p,' ');
s:=s+p;
end;
end;
writeln;
writeln('сумма этих цифр = ',s);
end.
Кодирование текстовой информации:N - кол-во символов в алфавите, i - кол-во бит для кодирования 1 символа, k - кол-во символов в тексте. I - информационный объем текста. Если мы знаем N, то можем узнать сколько "весит" i (N=2^i, одна буква в битах). Если мы знаем i и k, то узнаем какой объем этого сообщения (I=i*k). То же самое в кодированием графической информации.
Кодирование графической информации:N - кол-во цветов в палитре, i - "вес" одного пикселя в битах, k (X * Y) - это разрешение изображения, т.е кол-во точек в изображении, а I - объем изображения, I = k * i.