Дана строка, состоящая из латинских слов, разделенных пробелами. Определить длину самого короткого слова.

@gorodskoi · Регистрация: 18.09.2010

Студворк — интернет-сервис помощи студентам

@Puporev · 06.11.2010, 10:26

Pascal

uses crt;
const lb=['A'..'Z','a'..'z'];
var s:string;
    i,j,mn:byte;
begin
clrscr;
repeat
j:=0;
writeln('Введите строку из латинских слов, разделенных пробелами:');
readln(s);
for i:=1 to length(s) do
if not(s[i] in lb)and(s[i]<>' ') then j:=1;
if(j=1)or(s='') then writeln('Строка введена не верно, повторите ввод.');
until(j=0)and(s<>'');
mn:=255;
i:=1;
while i<=length(s) do
if(s[i] in lb)and((i=1)or(s[i-1]=' ')) then
 begin
  j:=0;
  while (i<=length(s))and(s[i] in lb) do
   begin
    i:=i+1;
    j:=j+1;
   end;
  if j<mn then mn:=j;
 end
else i:=i+1;
write('Длина самого короткого слова=',mn);
readln
end.

@gorodskoi 1 / 1 / 0 Регистрация: 18.09.2010 Сообщений: 34
		1
	Дана строка, состоящая из латинских слов, разделенных пробелами. Определить длину самого короткого слова. 05.11.2010, 22:22. Показов 3037. Ответов 1 Метки нет (Все метки) Дана строка, состоящая из латинских слов, разделенных пробелами. Определить длину самого короткого слова. 0

Опции темы

Дана строка, состоящая из латинских слов, разделенных пробелами. Определить длину самого короткого слова.

Решение