Var i,j,n,m:integer;
a:array[1..100] of integer;
begin
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
<span>End.</span>
Насчет 8,все же,посмотрите и подумайте.
===== PascalABC.NET =====
function GetArr(n: integer) :=
ReadArrInteger('Вводите эдементы массива:', n);
function Summ(a: array of integer): integer;
begin
if a.Any(p -> p < 0) then
Result := a.TakeWhile(p -> p >= 0).Sum
else
Result := a.Sum
end;
// Тест
begin
var M := GetArr(ReadInteger('n ='));
Println(Summ(M))
end.
128 * 128 = 16384 пикселей
8 Кб = 8192 байт = 65536 бит
65536 / 16384 = 4 бита на пиксель
2⁴ = 16
Ответ: 16 цветов.
Редко, такие как лиса, волк, медведь. Если ты живешь в лесу, то лиса, заяц, волк, медведь, еж и т.д.