К 1971 году была создана сеть с 23 пользователями в разных концах США. В 1972 году впервые ARPANET была продемонстрирована перед публикой.
Если будет ошибка на строчке:
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)это количество количество симболов из колторых состоит алфавит
3)незьняю=З
4)600 бит
5)килобайт-1024 байт
мегабайт-1024 килобайт
гигабайт-1024 мегабайт
терабайт-1024 гигабайт
6)количество симболов 3584
7)в 1,2 раза
Я прост пробовала (простите)
Ответ. слово вышло из букв АЛГОРИТМ.
под кружочком 4.