1) Нужен сам рисунок
2) 64 * 64 = 4096 пикселей
512 байт = 4096 бит
4096 / 4096 = 1 бит / пиксель
2¹ = 2
Ответ: 2 цвета.
3) 128 * 128 = 16384 пикселей
4 КБайта = 4096 байт = 32768 бит
32768 / 16384 = 2 бита / пиксель
2² = 4
Ответ: 4
4) 256 = 2⁸, значит, 8 бит (1 байт) / точка
Ответ: 2400 точек.
//PascalABC.NET версия 3.3.1590 от 03.12.2017
//Если программа не запускается, то обновите версию
var
A, B: integer;
begin
readln(A, B);
// Assert((A > 0) and (A < B), 'не верные параметры'); //проверка на дурака если надо
while A <= B do
begin
writeln('Квадрат числа ', A, ' = ', A * A);
A := A + 1;
end;
end.
С - 4
Е - 18
Т - 1
Ь - 22
Получилось слово ГРАФ
Граф - соединение вершин ребрами
<em>// PascalABC.NET 3.2, сборка 1334 от 12.11.2016</em>
begin
var n:=ReadInteger('n=');
var a:=SeqRandom(n,-20,20).Select(e->real(e)).ToArray;
a.Println;
var b:=a.Where(x->x=0).Concat(a.Where(x->x<0)).ToArray;
a:=b.Concat(a.Where(x->x>0)).ToArray;
a.Println;
end.
Пример
n= 20
-16 1 16 -11 20 -6 -11 15 0 -9 -14 0 4 -4 2 14 19 7 -14 4
0 0 -16 -11 -6 -11 -9 -14 -4 -14 1 16 20 15 4 2 14 19 7 4