Объяснение:

Код к задаче: «Заменить первую букву у слов, следующих за словами die, der, das на прописную - Pascal ABC»

1. {

2. die, der, das

3. }

4. program words;

5. uses crt;

6. var s: string;

7.        str: array[1..3] of string;

8.        stemp: string;

9.         i,j,k: integer;

10.        flag: boolean;

11. Begin

12.   str[1]:='die';

13.   str[2]:='der';

14.   str[3]:='das';

15.  

16.   write('Enter your string: ');

17.    readln(s);

18.  

19.   for i:=1 to length(s) do

20.  begin

21.  

22.    flag:=true;

23.    if (s[i]='d') then

24.    begin

25.      k:=1;

26.      for j:=i to i+3 do

27.       begin

28.          if (s[j]=str[1][k]) or (s[j]=str[2][k]) or (s[j]=str[3][k]) then

29.          begin

30.             inc(k);

31.             writeln(flag, '   j = ',j);

32.            end

33.            else

34.            begin

35.              flag:=false;

36.              j:=i+4;

37               end;

38.  

39.  

40.  

41.      if (flag=true) then

42.     begin

43.        writeln('j+1=',j+1);

44.        if (s[j+1]=' ') then

45.        begin

46.          if (s[j+2]>='A') and (s[j+2]<='Z') then begin s[j+2]:=chr(ord(s[j+2])+32); end;

47.         end;

48.         i:=i+3;

49.         end;

50.  

51.          end;

52.         end;

53.         end;

54.  

55.         writeln('New string: '+s);

56.         End.

#include "iostream"

#include "string"

using namespace std;

int main()

{

string text, word;

getline(cin, text);

for ( int i=3; i<text.length(); i++)

{

if ( text[i]==' ' )

{

word=text.substr(i-3, 3);

if (word=="die" or word=="der" or word=="das")

{

if (int(text[i+1])>96)

{

text[i+1]=char(int(text[i+1])-32);

}

}

}

}

cout<<text;

}