В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
FOMALEKSANDRA99
FOMALEKSANDRA99
10.08.2022 00:10 •  Информатика

Сделать с Напишите программу: использую компоненты Button, Stringgrid, label найти сумму четных чисел, стоящих на главной диагонали двумерного массива, размерностью 5x5

Показать ответ
Ответ:
MASTER10011
MASTER10011
23.10.2020 02:40

1. В проводной сети устройства (ноутбуки, настольные компьютеры и т. д.) подключаются к Интернету и другим сетям с кабеля. Беспроводная локальная сеть (LAN) использует радиоволны для подключения различных устройств, например ноутбуков и мобильных телефонов, к Интернету, сети вашей компании и ее приложениям.

2. Просмотр/хранение информации, скачивание/выкачка данных, дистанционное управление устройствами

3. Сеть WIFI влияет на мозг из-за излучений. Беспроводная сеть без устройства её использования бесполезна. Если только вы подключите её и будете сидеть возле роутера. Хотя если рассмотреть этот вопрос с другой стороны, то беспроводные сети как: Bluetooth, WIFI, мобильные данные. В этом случае на зрение оно никак не влияет. Тоесть можно сделать вывод о том, что беспроводные сети не влияют на зрение.

4. По моему мнению, в открытой доступности и мало затраченное время. Человеку проще потратить время (≈1 мин), чтобы найти нужную информацию, чем пойти, например, в библиотеку и взять уже там книгу, которая не факт, что будет об твоей информации.

Вот все ответы, надеюсь они вам

0,0(0 оценок)
Ответ:
angelinochka345
angelinochka345
05.08.2020 01:56

//PascalABC.NET версия 3.2, сборка 1389

//Если программа не запускается, то обновите версию

uses System.Linq;

begin

   writeln('III');

   var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;

   writeln;

   

   while a.Any() do

   begin

       write(a[0], ' ');

       a.RemoveAt(0);

       if not a.Any then break;

       

       write(a.Last, ' ');

       a.RemoveAt(a.Count - 1);

       if not a.Any then break;

       

       var n := 0;

       if a.Count > 1 then n := a.Count div 2 - 1;

       write(a[n], ' ');

       a.RemoveAt(n);

   end;

end.

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота