Регистрация
fylkis
17.06.2021 07:49
Информатика
Есть ответ 👍

Напишите, , функцию, которая удаляет из переданной ей символьной строки все лишние пробелы, заменяя все повторяющиеся пробелы на один пробел.

175
386
Посмотреть ответы 2

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

evstratovamash1
evstratovamash1
4,5(96 оценок)
  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.
Ильяна111
Ильяна111
4,7(2 оценок)

Program zad;

var  

   n: longint;

   sum: integer;

begin

   readln(n);    

   sum := 0;

   while n > 0 do begin

       if n mod 10 mod 2 = 0 then

           sum := sum + n mod 10;

       n := n div 10;

   end;    

   writeln(sum);

end.

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