Регистрация
QueenKulumshina
27.05.2023 19:26
Информатика
Есть ответ 👍

,проверьте правильность.Очень ! 10 класс информатика​

197
226
Посмотреть ответы 1

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

Aldatik
Aldatik
4,5(100 оценок)
Var    s,q: string;   i,n,j,m,k,l: longint; begin  readln(s);   m: =maxlongint;     s: =' '+s+' ';     for i: =1 to length(s) do  if s[i]< > ' ' then      begin    if s[i-1]=' ' then l: =i;           if s[i+1]=' ' then    begin       if m> length(copy(s,l,i-l+1)) then          begin              q: =copy(s,l,i-l+1);               m: =length(q);       end;         end;     end;   writeln(q); {слово}   writeln(m); {кол. букв}  end.

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