Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var a,st,ansst : string;
- ans,i:integer;
- first:char;
- flag : boolean;
- begin
- readln(a);
- a := a.Trim();
- while(a.Contains(' ')) do a:=a.Replace(' ',' ');
- ans:=0;
- for i:=1 to a.Length do
- if(a[i] = ' ') then ans+=1;
- writeln('Количество слов: ',ans+1);
- i:=a.Length;
- ans:=0;
- while(i > 0) and (a[i] <> ' ') do begin
- if ((ord(a[i]) >= ord('a')) and (ord(a[i]) <= ord('z'))) or (((ord(a[i]) >= ord('A')) and (ord(a[i]) <= ord('Z'))) ) then ans+=1; i-=1; end;
- writeln('Букв в последнем слове: ', ans);
- ans:=0;
- flag:=true;
- for i:=1 to a.Length do begin
- if(flag) and ((a[i] = 'я') or (a[i] = 'Я')) then begin ans+=1; flag:=false; end;
- if(a[i] = ' ') then flag:=true;
- end;
- writeln('Встречается буква я: ', ans);
- writeln('Слова в обратном порядке: ');
- st:='';
- ansst:='';
- for i:=a.Length downto 1 do begin
- if(a[i] = ' ') then begin st:=string.Join('',st.Reverse().ToArray()); ansst+= st + ' '; st:='' end;
- st+=a[i];
- end;
- st:=string.Join('',st.Reverse().ToArray());
- ansst+= st + ' ';
- writeln(ansst);
- ans:=0;
- flag:=true;
- i:=1;
- while(i<= a.Length) do begin
- if(a[i] = 'A') and (a.IndexOf('$$',i) > 0) and ((a.IndexOf('$$',i)=a.Length-2)or (a[a.IndexOf('$$',i)+3] = ' ') or (a[a.IndexOf('$$',i)+3] = ',') or (a[a.IndexOf('$$',i)+3] = '.')) then begin ans+=1; i:=a.IndexOf('$$',i)+2; end;
- if(a[i] <> 'A') then begin i:=a.IndexOf(' ',i)+1; if(i=0) then break; end;
- i+=1;
- end;
- writeln('Начинаются на А, а заканчиваются на $$: ', ans);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement