Const nn=10; var i,j,n:integer; begin Write('Введите число строк в массиве (2..9): '); Read(n); if (n<2) or (n>9) then writeln('Неверное значение') else for i:=1 to n do begin if (i mod 2)<>0 then for j:=1 to n do Write(j) else for j:=n downto 1 do Write(j); Writeln end end.
Тестовое решение: Введите число строк в массиве (2..9): 5 12345 54321 12345 54321 12345
Natalimis416024
09.11.2020
Графический интерфейс компьютера будущего интегрирован в повседневную жизнь человека посредством дополненной реальности. Взаимодействие осуществляется при голосового интерфейса или жестами. Процессор имеет прямой канал связи с мозгом, в котором данные от процессора фильтруются и при отсутствии вреда пользователю, уже передаются в мозг человека.С целью снижения психической нагрузки используется звуки природы. При сильном угнетении нервной системы в результате длительной работы, человеку предлагается поспать, если вред нервной системе неизбежен, используется введение пси-геля и активируется массажная функция одежды. Система в данном случае полностью локализованна, для избежания нанесения вреда другими людьми.
Annabill1987
09.11.2020
Компьютер будущего будет, скорее даже не компьютером в нашем понятии, а отдельной сферой жизни. Это будет общедоступная сеть, связываться и управлять которой можно будет с мысленных сигналов-импульсов, либо голосовых команд. Как таковое устройство будет представлять из себя микрочип, подсоединенный к организму с которого можно будет выходить в это виртуальное пространство, функции которого будут объединять усовершенствованное подобие интернета, и множество уже существующих и новых функций компьютера, телефона, прочей техники и программного обеспечения в принципе.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Решить в паскале. заполнить произвольный массив размером n x n (n< 10) по следующему правилу: 12345 54321 12345 54321 12345
nn=10;
var
i,j,n:integer;
begin
Write('Введите число строк в массиве (2..9): ');
Read(n);
if (n<2) or (n>9) then writeln('Неверное значение')
else
for i:=1 to n do
begin
if (i mod 2)<>0 then for j:=1 to n do Write(j)
else for j:=n downto 1 do Write(j);
Writeln
end
end.
Тестовое решение:
Введите число строк в массиве (2..9): 5
12345
54321
12345
54321
12345