Есть ответ 👍

Завдання. створити web-сторінку, що має назву сайт . назва задається таким кодом? title> /title

209
381
Посмотреть ответы 2

Ответы на вопрос:


< title> название страницы< /title>

  function dele (s : string) : string;   var    l,i : integer;   begin    l : = length (s);     i : = l;     while i> 0   do      begin      if (s[i] = ' ') and (i< l) then        if s[i+1] = ' ' then        begin          delete (s,i,1);           i : = i -1;         end;       i : = i -1;       end;     result : = s;   end;       var    a : string;   begin  readln (a);   writeln (dele(a));   end.

Популярно: Информатика