Вопрос по информатике:
Помогите, пожалуйста, составить программу, определяющую длину самого короткого слова в предложении. Если можно, то с объяснением. Даю 25 баллов.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.02.2016 13:48
- Информатика
- remove_red_eye 15015
- thumb_up 47
Ответы и объяснения 2
s:string;begin
min:=1000;
k:=0;
readln(s);
s:=s+' ';
for i:=1 to length(s) do
if s[i]=' ' then k:=k+1;
for i:=1 to k do begin
i1:=1;
while s[i1] ' ' do
begin
sl:=sl+1;
i1:=i1*k+1;
if s[i1]=' ' then begin
if sl
end;
end;
end;
writeln('Длина наименьшего:',min);
end.
- 03.02.2016 03:08
- thumb_up 37
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadlnString.ToWords;
var i:=a.Select(t->t.Length).ToArray.IndexMin;
Writeln('Самое короткое слово "',a[i],'" длиной ',a[i].Length)
end.
Пример
Зеленые бесцветные идеи яростно спят
Самое короткое слово "идеи" длиной 4
- 04.02.2016 00:30
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.