Дана строка. Группы символов, разделенные пробелами ( одним или несколькими ) и не содержащие пробелов внутри себя

@d@niyar · Регистрация: 19.10.2011

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

Дана строка. Группы символов, разделенные пробелами ( одним или несколькими ) и не содержащие пробелов внутри себя, будем называть словами:
а) количество слов, у которых первыц и последнийй символ совпадают между собой;
б)длину самого короткого слова,

@swillrocker · 14.12.2011, 21:06

а)

Pascal

var s,sl: string;
    i,k: integer;
begin
write('s=');
readln(s);
s:=s+' ';
sl:='';
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       begin
       if (length(sl)<>0) and (sl[1]=sl[length(sl)])
          then inc(k);
       sl:='';
       end;
writeln('Kol-vo ',k);
readln;
end.

@КонецСвета · 14.12.2011, 23:29

б)

Pascal

uses crt;
var s,sl,smin: string;
    i,dmin: integer;
begin
write('Введите строку ');
readln(s);
s:=s+' '; sl:='';dmin:=length(s);
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i]
       else
       begin
       if (length(sl)<dmin) and (length(sl)<>0) then
          begin
          dmin:=length(sl);
          smin:=sl;
          end;
       sl:='';
       end;
writeln ('Самое короткое слово "',smin,'" длиной в ',dmin,' символов');
readkey
end.

@d@niyar 0 / 0 / 0 Регистрация: 19.10.2011 Сообщений: 50
		1
	Дана строка. Группы символов, разделенные пробелами ( одним или несколькими ) и не содержащие пробелов внутри себя 14.12.2011, 18:53. Показов 20941. Ответов 2 Метки нет (Все метки) Дана строка. Группы символов, разделенные пробелами ( одним или несколькими ) и не содержащие пробелов внутри себя, будем называть словами: а) количество слов, у которых первыц и последнийй символ совпадают между собой; б)длину самого короткого слова, 0

Опции темы

Дана строка. Группы символов, разделенные пробелами ( одним или несколькими ) и не содержащие пробелов внутри себя

Решение