Var n,i,j: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> j:=Trunc(sqrt(n));
</span><span> </span><span> for i:=1 to j do write(i*i,' ');
</span><span>end.
</span>
n = 100
<span>1 4 9 16 25 36 49 64 81 100
</span>
Var
x, y: real;
b: boolean;
begin
Write('Введите через пробел координаты X,Y: ');
Readln(x, y);
{ рис 21 }
if y < 0 then b := false
else
if x <= 0 then b := (sqr(x) + sqr(y) <= sqr(3))
else b := (y <= 3 - x / 2);
Writeln(b);
{ рис 23 }
if (y<0) or (sqr(x)+sqr(y)>sqr(6)) then b:=false
else
if x<=0 then b:=true
else b:=(sqr(x)+sqr(y)>=sqr(3));
Writeln(b)
end.
Тестовое решение:
Введите через пробел координаты X,Y: 3.4 2
False
True
Правильный ответ под буквой D
8 бит = 1 байт
1024 байта = 1 кбайт
1024 кбайта = 1 Мбайт
2 кбайта = 2048 байт
2048 байт / 512 пикселей = 4 байта на пиксель = 32 бита на пиксель
A = N^i
i - длина слова(в нашем случае i = 32)
N - количество букв в алфавите(бит принимает всего два значения, поэтому N = 2)
A - количество различных комбинаций
2^32 = 4294967296 различных цветов
Ответ: 4294967296.
Переведём Кбайт в бит.
6 Кбайт = 6 * 1024 * 8 = 49152 бита
1 символ занимает 16 бит.
49152 / 16 = 3072
Ответ: 3072 символа