Сколько слов в тексте заканчивается на заданную букву

@NikeAir · Регистрация: 27.11.2013

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

сколько слов в тексте заканчивается на заданную букву
__________________________________________________
ПОМОГИТЕ ПОЖАЛУЙСТА ЗАДАЧУ РЕШИТЬ=(

@Kam_1995 · 29.12.2013, 14:12

Свежесделанная прога: )))

Pascal

uses crt;
var s: string;
    b: char;
    i,a,n: integer;
 
BEGIN
clrscr;
 
write('Vvedite stroku: ');
readln(s);
write('Vvedite bukvu: ');
readln(b);
n:=0; i:=0; a:=0;
repeat
a:=pos(' ',s);
if a<>0 then if s[a-1]=b then begin
n:=n+1;
end;
delete(s,a,1);
i:=i+1;
until a=0;
if s[length(s)]=b then n:=n+1;
writeln('Kol-vo bukv "',b,'" ravno: ',n);
 
repeat until keypressed;
END.

@NikeAir · 29.12.2013, 14:13 **[ТС]**

спасибо большое

@NikeAir 0 / 0 / 0 Регистрация: 27.11.2013 Сообщений: 4
		1
	Сколько слов в тексте заканчивается на заданную букву 29.12.2013, 11:59. Показов 1848. Ответов 2 Метки нет (Все метки) сколько слов в тексте заканчивается на заданную букву __________________________________________________ ПОМОГИТЕ ПОЖАЛУЙСТА ЗАДАЧУ РЕШИТЬ=( 0

@NikeAir 0 / 0 / 0 Регистрация: 27.11.2013 Сообщений: 4
	29.12.2013, 14:13 [ТС]	3
	спасибо большое 0

Сколько слов в тексте заканчивается на заданную букву

Решение