<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b) := ReadInteger2('Введите границы диапазона a и b:');
var (s, n) := (0, 0);
for var x := a to b do
if x.IsOdd and (x mod 5 <> 0) then (s, n) := (s + x, n + 1);
Println(s / n)
end.
<h2>Пример</h2><h3>Введите границы диапазона a и b: 15 149</h3><h3>82.5185185185185 </h3>
Cp-1251 - это 8-битная кодировка, т.е. один символ кодируется 8-ю битами, или одним байтом.
UNICONDE - это 16-битная кодировка, один символ кодируется 16-ю битами, или двумя байтами.
Таким образом сообщение длиной 35 символов занимало 35 байт в кодировке cp-1251, и после перекодировки стало занимать в два раза больше, то есть 70 байт.
Объем изменился на 35 байт.
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
var
n:integer;
a:array[1..100] of integer;
begin
write('Введите размер массива (n<100): ');readln(n);
var max:=0;
var min:=101;
for var i:=1 to n do
begin
a[i]:=random(0,100);
write(a[i],' ');
if i mod 2=1 then
if a[i]>max then max:=a[i]
else
if a[i]<min then min:=a[i];
end;
writeln;
writeln('Максимальный - ',max);
writeln('Минимальный - ',min);
writeln('Cумма максимального и минимального - ',max+min);
readln;
end.
Пример:
Введите размер массива (n<100): 10
22 6 51 84 46 66 10 36 14 52 // рандомная генерация
Максимальный - 51
Минимальный - 10
Cумма максимального и минимального - 61
<span>var a,b,h,x,s:real; n:integer;
begin
a:=pi/3; b:=pi/2; n:=60;
h:=(b-a)/n;
s:=0;
x:=a+h/2;
repeat
s:=s+(sin(x)+cos(2*x))/(2+cos(x));
x:=x+h;
until x>b-h/4;
s:=s*h;
writeln(x);
end<span>.
Результат:
</span><span> 1.575159649924877e+00</span></span>
I = log_2(128) = 7 бит на символ
7*10 = 70 бит