В предложении, состоящем из слов, разбитых одним пробелом, поменять первую букву

Объяснение:

Код к задачке: Заменить первую буковку у слов, последующих за словами 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]gt;='A') and (s[j+2]lt;='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.