У профессора Никлауса Вирта во время посещения этого города на берегу реки Исеть возникло желание уже на стадии монтажа познакомиться с этим проектом. Памятник наложил отпечаток на все окружающее его пространство. Рядом находится каменный старинный дом, который теперь называют системным блоком. Благодаря форумчанам название главной городской реки Исеть на интернет-форумах теперь пишется как «I-сеть», а жители города, четвертого по численности населения, предлагают рядом с этой лэнд-арт скульптурой разместить памятник модему. Они хотели бы также, чтобы были размещены и памятники компьютерной Мыши и Монитору. В 2011 году встал вопрос о переносе памятника в г. Пермь (т.к. был частично поврежден), но

инициативная группа отстояла право памятника находится в городе на побережье реки Исеть. Проект был восстановлен и вынесен на конкурс по статусу одного из семи чудес России. В 2011 году вошел в десятку самых популярных достопримечательностей города.

О каком памятнике идет речь, когда он был открыт, где расположен и кто является автором проекта?

О каких повреждениях упоминается в тексте?

Program divisors; //вообще ничего не делает(аля название программы) var num,divisor,i,sum: longint; //описываем переменные типа longintbegin//начало программы write('vvedite chislo: '); //выводим текст readln(num); //считываем число write('vvedite delitel: '); //выводим текст read(divisor); //считываем заданное число(будем использовать при поиске делителей больше заданного) sum: =0; //зануляем переменную(изначально равна нулю, но на всякий случай ; ) от с++)    for i: =1 to num do //цикл от 1 до числа(можно оптимизировать идя до корня из num)    begin//начало цикла      if num mod i = 0 then//если на очередном шаге остаток от деления числа на i равен нулю      begin//начало условия        write(i,' '); //выводим делитель        sum: =sum+i; //суммируем      end; //конец условия    end; //конец цикла    writeln(); //переходим на следующую строку    writeln(sum); //выводим сумму    for i: =1 to num do//аналогично выше    begin      if (num mod i = 0) and (i mod 2 = 0) then // если число делитель и делится на 2      begin        write(i,' ');       end;     end;     writeln();     for i: =1 to num do    begin    if (num mod i = 0) and (i mod 2 = 1) then // не делится на 2    begin        write(i,' ');     end;     end;     writeln();     for i: =1 to num do    begin    if (num mod i = 0) and (i> divisor) then // больше заданного числа    begin        write(i,' ');     end;     end; end.//конец программы