Имя файла - Название Файл - Книга Вложенная папка - Полка Папка - Шкаф Диск - Библиотека
Объяснение: Все очень ассоциативно. Файлы содержат в себе информацию, как и книги, которые вы можете найти на полке в шкафу. Только вот файлы вы ищете в папках и во вложенных папках (вложенная — то есть папка сама лежит в папке). Файлы вам доступны по имени файла, точно также как и доступна вам книга по ее названию, когда вы ее покупаете или приходите в библиотеку. Библиотека, в таком случае, — это аналогия жесткому диску, на котором содержится вся информация компьютера (все папки, вложенные в них папки, и файлы лежащие в этих папках)
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var a:=ArrRandom(ReadInteger('n='),1,99); a.Println; var k:=ReadInteger('k='); Writeln('Сумма чисел, кратных ',k,': ', a.Where(x->x mod k=0).Sum) end.
Файл - Книга
Вложенная папка - Полка
Папка - Шкаф
Диск - Библиотека
Объяснение:
Все очень ассоциативно. Файлы содержат в себе информацию, как и книги, которые вы можете найти на полке в шкафу. Только вот файлы вы ищете в папках и во вложенных папках (вложенная — то есть папка сама лежит в папке). Файлы вам доступны по имени файла, точно также как и доступна вам книга по ее названию, когда вы ее покупаете или приходите в библиотеку. Библиотека, в таком случае, — это аналогия жесткому диску, на котором содержится вся информация компьютера (все папки, вложенные в них папки, и файлы лежащие в этих папках)
begin
var a:=ArrRandom(ReadInteger('n='),1,99);
a.Println;
var k:=ReadInteger('k=');
Writeln('Сумма чисел, кратных ',k,': ',
a.Where(x->x mod k=0).Sum)
end.
Тестовое решение:
n= 18
45 17 36 15 65 17 97 44 49 43 60 51 66 72 18 55 71 85
k= 12
Сумма чисел, кратных 12: 168
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,20);
a.Println;
a.Where((x,i)->x=i+1).Println
end.
Тестовое решение:
n= 16
17 2 1 14 20 19 10 3 9 15 14 4 2 7 2 16
2 9 16