Подсчитать сколько раз в тексте встречаются буквы "л" и "а" стоящие отдельно.заменитьь все буквы "л" на "77"

@Kitty1197 · Регистрация: 01.03.2012

Задача.Подсчитать сколько раз в тексте встречаются буквы "л" и "а" стоящие отдельно.заменитьь все буквы "л" на "77". Огромное спасибо

@КонецСвета · 01.03.2012, 23:30

Pascal

uses crt;
var s,sc: string;
    i,k: byte;
begin
write('s=');
readln(s);
s:=' '+s+' ';
for i:=1 to length(s)-2 do
    begin
    sc:=copy(s,i,3);
    if ((sc[1]=' ') and (sc[3]=' ')) and
       ((sc[2]='л') or (sc[2]='а')) then inc(k);
    end;
writeln('Отдельно буквы "л" и "а" встречаются ',k,' раз(а)');
for i:=length(s) downto 1 do
    if s[i]='л' then
       begin
       delete(s,i,1);
       insert('77',s,i);
       end;
write('s=',s);
end.

@Kitty1197 0 / 0 / 0 Регистрация: 01.03.2012 Сообщений: 3
		1
	Подсчитать сколько раз в тексте встречаются буквы "л" и "а" стоящие отдельно.заменитьь все буквы "л" на "77" 01.03.2012, 20:28. Просмотров 2419. Ответов 1 Метки нет (Все метки) Задача.Подсчитать сколько раз в тексте встречаются буквы "л" и "а" стоящие отдельно.заменитьь все буквы "л" на "77". Огромное спасибо 0

Опции темы

Подсчитать сколько раз в тексте встречаются буквы "л" и "а" стоящие отдельно.заменитьь все буквы "л" на "77"

Решение