// счет разрядов от нуля справа налево: ХХХ5ХХ2ХХ
var
n:longint;
a,b,k,d:integer;
begin
Write('Введите натуральное число длиной 6-9 цифр: ');
Read(n);
k:=0;
while n>0 do begin
d:=n mod 10;
if k=2 then a:=d
else
if k=5 then b:=d;
Inc(k);
n:=n div 10
end;
Writeln('Ср. арифм. разрядов 2 и 5 равно ',(a+b)/2)
end.
Пример
Введите натуральное число длиной 6-9 цифр: 123456789
Ср. арифм. разрядов 2 и 5 равно 5.5
Растровое изображение это, по сути, набор двоичных чисел, каждое из которых задает цвет одного пикселя (точки). Чем больше бит в числе, тем больше вариантов цвета может быть у пикселя.
Если вариантов цвета было 65536 - это 2^16, значит каждый пиксель кодировался 16-ю битами. Число цветов стало 16 (2^4) - каждый пиксель начал кодироваться 4 битами. Значит информационный объем картинки уменьшился в 16/4 = 4 раза.
1) 40×40=1,600 (симв.) - на одной стр
2) 1,600×64=102,400 (симв.) - во всей статье
8 бит = 1 байт
3) 102,400×1=102,400 (байт) - размер статьи
Ответ: 102,400 байт
var
l,x,sum:real;
i:integer;
begin
write ('L = ');
readln(l);
write ('X = ');
readln(x);
i:=1;
sum:=0;
while i<=101 do
begin
sum:=sum+exp((x+i)*ln(l))/i;
i:=i+2;
end;
writeln ('Summa: ',sum);
readln;
end.