Регистрация
kosmikanna
20.02.2020 03:56
Информатика
Есть ответ 👍

,НА ФОТО ВСЕ НАПИСАНО

192
410
Посмотреть ответы 2

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

bgs6544
bgs6544
4,4(27 оценок)

Объяснение:

Начинается всё с диска c: и потом просто смотришь что и в какой папке лежит


,НА ФОТО ВСЕ НАПИСАНО
RFTBOY
RFTBOY
4,5(42 оценок)
Var     s: string;     max,min,i,k: integer; begin write('введите строку: '); readln(s); s: =s+' '; for i: =1 to length(s) do   begin   if s[i]=' ' then       begin       if k> max then max: =k;       if (k< min) or (min=0) then min: =k;       k: =-1;       end;   k: =k+1;   end; writeln('самое короткое: ',min,'; самое длиное: ',max); end.

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