Как-то раз, придя домой со школы, света обнаружила записку от мамы, в которой она просила сделать салат. света знала, что салат – это смесь двух или более ингредиентов, поэтому ей не составило труда выполнить мамину просьбу.но света хочет стать , поэтому, для тренировки, решила посчитать, сколько различных салатов она сможет сделать из имеющихся продуктов (майонез, огурцы, помидоры после небольших расчетов она получила ответ: 4.зная, что вы любите интересные , и хотите стать программистами, света попросила вас написать программу, которая определяет количество различных салатов для произвольного числа ингредиентов.

Тим бернерс-ли и в меньшей степени, роберт кайо.  тим бернерс-ли 1980 году для собственных нужд написал программу «энквайр» которая заложила концептуальную основу для всемирной паутины. в 1989 году, работая в cern над внутренней сетью организации, тим бернерс-ли предложил гипертекстовый проект, теперь известный как всемирная паутина. официально годом рождения всемирной паутины нужно считать 1989 год .первый в мире веб-сайт был размещён бернерсом-ли 6 августа 1991 года.  теоретические основы веба были заложены гораздо раньше бернерса-ли. ещё в 1945 году ванна́вер буш разработал концепцию «memex» — механических средств «расширения человеческой памяти» . memex — это устройство, в котором человек хранит все свои книги и записи (а в идеале — и все свои знания, формальному описанию) и которое выдаёт нужную информацию с достаточной скоростью и гибкостью. оно является расширением и дополнением памяти человека. бушем было также предсказано всеобъемлющее индексирование текстов и мультимедийных ресурсов с возможностью быстрого поиска необходимой информации. следующим значительным шагом на пути ко всемирной паутине было создание гипертекста (термин введён тедом нельсоном в 1965 году) .

Program a; var a,b,c,s: integer; begin write('введите кол-во чисел в последовательности: '); readln(a); for c: =1 to a do begin write('введите число: '); readln(b); if (b mod 10=3) then s: =s+b; write(b,' '); end; writeln('сумма  чисел, оканчивающихся на 3=',s); end. с клавиатуры вводится кол-во чисел в последовательности и каждое число послед-ти  на экран  выводится последовательность чисел через пробел и сумму  чисел, оканчивающихся на 3 program b; var a,b,s: integer; begin write('введите кол-во чисел в последовательности: '); readln(a); for c: =1 to a do b: =random(300)+1; if (b mod 10=3) then s: =s+b; write(b,' '); end; writeln('сумма  чисел, оканчивающихся на 3=',s); end. с клавиатуры вводится   только  кол-во чисел в последовательности а каждое число послед-ти вводится само рандомно.  на экран  выводится последовательность чисел через пробел и сумму  чисел, оканчивающихся на 3