Var
m: array [1..31] of integer; //заполненный массив
sr: real; //средняя сумма
sum: integer; //сумма всех элементов
i: integer;
a: integer;//значений выше
b: integer;//значений ниже
c: integer;//равных среднему
begin
for i := 1 to 31 do
sum := sum + m[i];
sr := sum / 31;
for i := 1 to 31 do
if m[i] > sr then
a := a + 1
else if m[i] < sr then
b := b + 1
else c := c + 1;
writeln(a);
writeln(b);
writeln(c);
<span>end.</span>
По идее множество А содержит множество B
а) пересечение.
Program qq;
var x: real;
begin
readln (x);
if x>0 then writeln ('положительно')
else writeln ('отрицательно ');
end.
Ответ:
1. 512 байт = 4,656612873077393e-10 Терабайт.
2. 18 Гигабайт = 18874368 Килобайт.
3. 25 Бит = 2,9103830456733703e-9 Гигабайт.
4. я предполагаю что тут указаны мегагерцы, но могу ошибаться
5. 2.25 Килобайт = 2,14576721191406e-6 Гигабайт.
6. В каждой ячейке может храниться двоичный код, длиной восемь знаков (1 байт). 12,5 Килобайт = 12,5 * 1024 = 12 800 байт.
Для кодирования реферата объёмом 12,5 Килобайт потребуется: ячеек памяти.
Var a,b,s,u:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
s:=a+b;
u:=2*s;
writeln('u = ',u);
end.
Пример:
<span>a = 5
b = 8
u = 26</span>