Если будет ошибка на строчке:
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.
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Fib(n: integer): integer;
begin
if n < 3 then Result := 1
else
begin
var (a, b) := (1, 1);
for var i := 3 to n do
(a, b) := (a + b, a);
Result := a
end
end;
begin
for var i := 1 to 10 do Fib(i).Print; // контрольный пример
end.
<h2>1 1 2 3 5 8 13 21 34 55 </h2>
Система уравнений:
x=2*y
3*z=t
t=x+35
z=3*y
Решая ее получаем: x=10; y=5; z=15; t=45
x- Число лет Максима
y- Число лет Тани
z- Число орехов Максима
t- Число орехов Тани
Ответ:
Максиму 10 лет и у него 15 орехов
Тани 5 лет и у нее 45 орехов
1 мб = 2^13 => 2^27 бит = 2^27 / 2^13 мб = 2^14 мб
Ответ:
Рисунок и ответом во вложении.