Получится насыщенный серый цвет. Ниже привожу пример создала в иллюстраторе.
Если будет ошибка на строчке:
write('Введите A[' + IntToStr(i) + ',' + IntToStr(j) + ',' + IntToStr(k) + '] = ');
можешь просто убрать ее.
Она может не работать из за разных версий Pascal-я, т.к. не везде есть IntToStr.
--------------------------------------------------------------------
var
A: array [1..2,1..2,1..2] of longint;
i, j, k: byte;
sum: longint;
begin
for i := 1 to 2 do
for j := 1 to 2 do
for k := 1 to 2 do
begin
write('Введите A[' + IntToStr(i) + ',' + IntToStr(j) + ',' + IntToStr(k) + '] = ');
ReadLn(A[i, j, k]);
end;
sum := 0;
for i := 1 to 2 do
for j := 1 to 2 do
for k := 1 to 2 do
sum := sum + A[i, j, k];
writeln('Сумма всех элементов трехмерного массива = ', sum);
readln;
end.
Function y(x: real): real;
begin
if x < -1 then
y := 1 - 2 * x
else if x <= 2 then
y := 2 + x * x
else
y := abs(2 * x * x) + 1;
end;
function z(x, y: real): real;
begin
z := 2 * x / (48 - y * y) + 15 * sin(x);
end;
var
x: integer;
begin
for x := -10 to 10 do
writeln('x=',x, ' y=', y(x), ' z=', z(x, y(x)));
end.
Блок-схема - в прилагаемом файле.
Программа:
var n,i:integer; p:real;
begin
write('n = '); readln(n);
p:=1;
for i:=1 to n do p:=p*i;
writeln('p = ',p);
end.
Пример:
n = 10
p = 3628800
1)В5(в восьмиричной системе счисления)
2)110000(в двоичной системе счисления)
3)А2(в восьмиричной системе счисления)
3)111000(в двоичной системе счисления)
