1)var a:array[1..15] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(20)+10;
for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;
writeln(s);
end.
2)var a: array[1..10] of integer;
i, s: integer;
begin
randomize;
for i := 1 to 10 do a[i] := random(21) - 10;
for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1;
writeln(s);
end.
Формула нахождения информационного объёма I=N*i ,где N количество пикселей , 2^i ,где i=глубина цвета. 256=2^8
I=10*10*8=800бит
800/8=100байт т.к в 1 байте 8 бит Ответ:100байт (5)
Информационная система<span> — </span>система<span> обработки информации и </span><span>соответствующие организационные ресурсы</span><span>, которые обеспечивают и распространяют </span>информацию.
примеры
<span>Информационная система по отысканию рыночных ниш
</span><span>Информационные системы, ускоряющие потоки товаров.
</span><span>Информационные системы по снижению издержек производства
</span><span>Информационные системы автоматизации технологии
</span>
Вставил прогу в паскаль он сам все считает
2) 50
3) 56
4) 55
5) 243
6) 35
7) 64
Нужно в начале нажать на первую кнопку потом на вторую потом опять на первую и опять на вторую