vladusha2
26.08.2020 17:23

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

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

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

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
СлавноваМаша
06.01.2021 20:26
Var a:array[1..100,1..100] of integer; i,j,n,m,max,min:integer; begin write ('Введите количество строк: '); read(n); writeln; write ('Введите количество элементов в строке: '); read(m); writeln; writeln('Введите массив: '); for i:=1 to n do begin for j:=1 to m do begin write(' a[',i,',',j,']='); read(a[i,j]); end; writeln; end; writeln; writeln('Исходный массив: '); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; writeln; writeln('Конечный массив: '); for i:=1 to n do begin min:=a[i,1]; max:=a[i,1]; for j:=2 to m do begin if (min>a[i,j]) then min:=a[i,j]; if (max
0,0(0 оценок)
Ответ:
colins1987
08.11.2020 12:18
// PascalABC.Net 3.0, сборка 1066
var
  s, wd: string;
  n, pt: integer;

begin
  Write('Введите строку: ');Readln(s);
  n := Length(s); pt := 1;
  repeat
    // Пропускаем все символы до первого непробельного
    while pt <= n do
      if s[pt] = ' ' then Inc(pt) else break;
    if pt <= n then begin
      // Выделяем очередное слово
      wd := '';
      while pt <= n do
        if s[pt] <> ' ' then begin wd := wd + s[pt]; Inc(pt) end
        else break;
      if (wd <> '') and (LowCase(wd[1]) in ['м'..'я']) then Writeln(wd)
    end
  until pt > n;
end.

Тестовое решение:
Введите строку: **А роза    упала   на    лапу Азора    **
роза
упала
на

А вот так версия 3.0 позволяет решить задачу "по-современному":

// PascalABC.Net 3.0, сборка 1066
begin
  var s:=ReadString('Введите строку: ');
  Writeln('Результат: ',s.ToWords(' ').Where(x->x[1] in ['м'..'я']))
end.

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