Если будет ошибка на строчке:
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.
а) ЖирафЗебра
б) 1. Подчеркнуть первую букву
2. Записать букву, которая в алфавите предшествует подчеркнутой
в) ТАКДЕРЖАТР
г) Буквы, после которых следуют те, с которых не начинаются названия животных + Я (т.к. стоит последняя в алфавите и после неё нет букв)
Для редактирования текста применяются средства-
- выделение части текста протаскиванием указателя мыши или нажатием клавиш-стрелок при удерживаемой клавише ;
- вырезка, копирование и вставка части текста либо сочетанием горячих клавиш +, +, + соответственно, либо при помощи меню Edit (Правка) , контекстного меню или панели Standard (Стандартная) .
Примечание -
Кроме того, существуют развитые средства форматирования текста, такие как управление типом и размером шрифта, выравниванием и т. п. Большинство этих возможностей реализуется при помощи панели инструментов Formatting (Форматирование) .
Чтобы найти время передачи нужно размер файла разделить на скорость передачи файлов
t=3600*2^10*2^3/192*2610*2^3= 3600/192=18,75секунд
примерно 19 секунд