4 бита-2^4 варианта => 16 цветов
Порядок операций показан на рисунке в прилагаемом файле.
Исходник Java прикреплен (Java как всегда по умному компилирует)
теперь на маскале
var i,j,n:integer;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
n:=j*i;
write(' ', n);
end;
writeln();
end;
end.
В кодировке Unicode каждый символ кодируется двумя байтами, поэтому строка займет 35×2 = 70 байт.
Тогда таких строк будет 1050 / 70 = 15
function MyPower(x: real; n: integer): real;
var
i: integer;
begin
result := 1;
if n < 0 then
result := 1 / MyPower(x, -n)
else
for i := 1 to n do
result := result * x;
end;
var
x, y, p: real;
begin
Write('x, y: ');
Read(x, y);
p := (2 * MyPower(x, 5) + 4 * MyPower(x, 30) + 8 * y)
/ (2 * y + MyPower(y, 15) - 25 * x);
Write('p = ', p);
end.