Определить, сколько слов из четырех букв входит в строку

@Energizer1995 · Регистрация: 23.03.2013

Ввести строку длиной до 70 символов. Определить, сколько слов из четырех букв входящих в эту строку

Kodzaev · 21.05.2013, 12:52

Если словами считать группу символов, разделенных пробелами:

Pascal

Var
  s: String;
  i,k: Byte;
BEGIN
Write('Введите строку: ');
Readln(s);
While s[1]=' ' do
Delete(s,1,1);
While Pos('  ',s)>0 do
Delete(s,Pos('  ',s),1);
While s[Length(s)]=' ' do
Delete(s,Length(s),1);
s:=s+' ';
k:=0;
Repeat
 If Length(Copy(s,1,Pos(' ',s)))-1=4 Then
 k:=k+1;
 Delete(s,1,Pos(' ',s));
until s='';
Writeln('Кол-во слов из 4 букв = ',k);
Readln
END.

@Komar13 · 01.05.2021, 12:05

как можно етот код записать через массив array of char ??

@bormant · 01.05.2021, 17:47

Pascal

var
  s: array [0..70] of Char;
  i, j, k: Integer;
begin
  Write('Строка: '); ReadLn(s); {i:=0; k:=0;}
  while s[i]<>#0 do begin
    while s[i]=' ' do Inc(i); j:=i; 
    while not (s[i] in [#0,' ']) do Inc(i);
    Inc(k,Ord(i-j=4));
  end;
  WriteLn('Строка: ',s);
  WriteLn('Слов из 4 букв: ',k);
end.

@Energizer1995 0 / 0 / 1 Регистрация: 23.03.2013 Сообщений: 30
		1
	Определить, сколько слов из четырех букв входит в строку 20.05.2013, 22:53. Показов 1804. Ответов 3 Метки нет (Все метки) Ввести строку длиной до 70 символов. Определить, сколько слов из четырех букв входящих в эту строку __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Komar13 0 / 0 / 0 Регистрация: 10.03.2021 Сообщений: 42
	01.05.2021, 12:05	3
	как можно етот код записать через массив array of char ?? 0

Опции темы

Определить, сколько слов из четырех букв входит в строку

Решение