Работа со строками

@Katrina extezy · Регистрация: 14.05.2009

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

Дана последовательность слов. Определить количество слов, начинающихся на букву ‘б’. Результат получить в виде текстового сообщения вида: “На букву ‘б’ начинается к слов”, согласовав окончание слова “слов” с числом к.

@c00le® · 20.05.2009, 02:30

Pascal

Program duo;
var
    s,f:string;
    I,kol,n:integer;
    b:string;
begin
write('Stroka: '); readln(s);
Write ('Kakaya bukva? ');
Readln(b);
kol:=0;
     For i:=0 to length(s)-1 do
     begin
      If (s[i+1]=b) then Kol:=kol+1; end;
      case kol of
      1,21,31,41,51,61,71,81,91: f:='slovo';
      0,5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..100: f:='slov';
      2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94: f:='slova';
       end;
Writeln ('Na bukvu ',b,' nachinaetsya ',kol, ' ', f);
Readln
End.

@Katrina extezy 0 / 0 / 0 Регистрация: 14.05.2009 Сообщений: 17
		1
	Работа со строками 19.05.2009, 22:47. Показов 1139. Ответов 1 Метки нет (Все метки) Дана последовательность слов. Определить количество слов, начинающихся на букву ‘б’. Результат получить в виде текстового сообщения вида: “На букву ‘б’ начинается к слов”, согласовав окончание слова “слов” с числом к. 0

Опции темы

Работа со строками

Решение