Var
a: array[1..15] of real;
i: integer;
b, c:real;
Begin
for i:=1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if (((i mod 3)=0) and ((a[i] mod 5)=0) then
Begin
b:=b+a[i];
c:=c+1;
End;
write(b/c);
End.
Если символ кодируется одним байтом, то объем сообщения = 256*1 = 256 байт.
Если символ кодируется двумя байтами, то объем сообщения = 256*2 = 512 байт.
256 символов стандартного алфавита стало недостаточно (русский, английский и некоторые спец символы). для ютого ввели unicode, где на каждый символ уже отводится 2 байта, с помошью него уже можно закодировать 65536 символов (и арабский и иероглифы и спецсимволы новые, почти все письменные языки и символы)
Y=COS(2/B4)-2*SIN(1/B4)+1/B4
Если в ячейке В4 разместить Х
см. приложение