Определить сколько всего раз в слове встречается его первая буква

@yatsan · Регистрация: 04.11.2014

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

Помогите, пожалуйста, решить две задачи.

1) Дано слово. Определить сколько всего раз в нем встречаетсч его первая буква.
2)Дано слово. Получить и вывести на экран подстроку, образованную последними N буквами слова.

@CodeR · 05.11.2014, 11:38

Сообщение от yatsan

1) Дано слово. Определить сколько всего раз в нем встречаетсч его первая буква.

Pascal

Var sl:string;
    ch:char;
    len:byte;
Begin
    write('Слово: ');readln(sl);
    len:=length(sl);ch:=sl[1];
    While Pos(ch,sl)>0 do
     Delete(sl,Pos(ch,sl),1);
    writeln('Первая буква слова в строке встречается ',Len-Length(sl),' раз(а)');
    readln;
End.

Добавлено через 2 минуты

Сообщение от yatsan

2)Дано слово. Получить и вывести на экран подстроку, образованную последними N буквами слова.

Pascal

Var sl:string;
    n:byte;
Begin
    write('Слово: ');readln(sl);
    Repeat
     write('N: ');readln(n);
    Until (n>0)and(n<=Length(sl));
    writeln(Copy(sl,Length(sl)-n+1,n));
    readln;
End.

@APALoff · 05.11.2014, 17:39

1)

Pascal

Function N1(S : String) : Longint;
Begin
  If Length(S)>1 then N1:=Ord(S[1]=S[Length(S)])+N1(Copy(S,1,Length(S)-1))
    else N1:=0;
end;
 
Begin
  Writeln(N1('testingstring')+1);
end.

2)

Pascal

1	Writeln(Copy(S,Length(S)-N+1,N));

@yatsan 0 / 0 / 0 Регистрация: 04.11.2014 Сообщений: 2
		1
	Определить сколько всего раз в слове встречается его первая буква 04.11.2014, 20:52. Показов 2814. Ответов 2 Метки нет (Все метки) Помогите, пожалуйста, решить две задачи. 1) Дано слово. Определить сколько всего раз в нем встречаетсч его первая буква. 2)Дано слово. Получить и вывести на экран подстроку, образованную последними N буквами слова. 0

Опции темы

Определить сколько всего раз в слове встречается его первая буква

Решение