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

3. создать на локальном диске d: папку с именем курс_группа_net, в этой папке создать
папки фио_1, фио_2, и фио_3, где вместо курс_группа и фио подставить ваши данные,
например, «2к_ком», «ивановии_1». папку фио_1 открыть для полного доступа в сети, а папку
фио_2 – только для чтения,
4. с любого текстового редактора создать в папке фио_1 текстовый файл с
содержанием и именем, соответствующим вашему варианту:
4.1. классификация сетей
4.2. типы серверов
4.3. сетевые топологии
4.4. сетевые среды
4.5. сетевые протоколы
4.6. уровень
4.7. канальный уровень
4.8. сетевой уровень
4.9. транспортный уровень
4.10. сеансовый уровень
4.11. представительский уровень
4.12. драйверы сети
5. в папке фио_2 разместить созданный вами файл с любого редактора (paint,
word) с ответом на вопрос по своему варианту:
5.1. схема шинной топологии
5.2. схема кольцевой топологии
5.3. схема сотовой топологии
5.4. схема топологии "звезда"
6. попытаться скопировать из папки фио_1 файл на любой компьютер группы в папку
фио_1 и фио_2, и файлы с любого другого компьютера сетевой группы из папок фио_1 и
фио_2 в свою папку фио_3. в отчете отразить результат каждой операции.

Показать ответ
Ответ:
элизабет35
элизабет35
07.07.2021 08:30
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

function sn(n:integer):integer; // сумма цифр числа
begin
  n:=Abs(n);
  Result:=0;
  while n>0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
  var (n,a,b):=ReadInteger3('Введите n,a,b через пробел:');
  var m:=ArrRandom(n,a,b); m.Println;
  var k:=ReadInteger('k=');
  Writeln('Найдено чисел: ',m.Where(t->sn(t)=k).Count)
end.

Пример
Введите n,a,b через пробел: 15 -50 60
43 2 42 -26 -34 57 45 44 29 -41 -4 1 -17 38 -19
k= 7
Найдено чисел: 2
0,0(0 оценок)
Ответ:
Lena1056
Lena1056
18.06.2020 16:25

Текстовые редакторы (Блокнот, Sublime Text, Notepad++) предназначены для редактирования непосредственно текстовой информации

Текстовые процессоры (MSO Word, OO Writer) могут редактировать не только текст, но так же его представление - форматирование. Так же в документ можно вставлять таблицы, рисунки и т.п.


Для облегчения руттиной работы в текстовых редакторах и процесорах есть поиск и замена в том числе по регуляным выражениям, макросы, автодополнение, автоматическое форматирование для языков программирования, автоматичесое выделение ошибок, автозамена, готовые шаблоны и т.д.

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