Паскаль.Дан текст. слова в котором разделены хотя бы одним пробелом

@temacska1 · Регистрация: 02.05.2013

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

Дан текст, слова в котором разделены хотя бы одним пробелом. Найти слово, в котором букв “А” больше, чем в других.

@Puporev · 03.05.2013, 11:48

Pascal

uses crt;
const b=['A','À'];//îäíà ðóññêàÿ, äðóãàÿ ëàòèíñêàÿ
var s,s1,s2:string;
    n,i,j,k,mx:byte;
begin
writeln('Ââåäèòå ñòðîêó èç ñëîâ, ðàçäåëåííûõ ïðîáåëàìè');
read(s);
n:=length(s);
mx:=0;
i:=1;
while i<n do
if (s[i]<>' ')and((i=1)or(s[i-1]=' ')) then
 begin
  j:=i;
  s1:='';
  while(j<=n)and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    j:=j+1
   end;
  k:=0;
  for j:=1 to length(s1) do
  if s1[j] in b then k:=k+1;
  if k>mx then
   begin
    mx:=k;
    s2:=s1
   end;
  i:=i+length(s1)
 end
else i:=i+1;
if mx=0 then write('Íåò ñëîâ ñ áóêâîé À')
else write('Áîëüøå âñåãî áóêâ À â ñëîâå ',s2)
end.

@temacska1 · 03.05.2013, 11:59 **[ТС]**

благодарю!!! Огромное спасибо

@temacska1 0 / 0 / 0 Регистрация: 02.05.2013 Сообщений: 37
		1
	Паскаль.Дан текст. слова в котором разделены хотя бы одним пробелом 03.05.2013, 11:05. Показов 1479. Ответов 2 Метки нет (Все метки) Дан текст, слова в котором разделены хотя бы одним пробелом. Найти слово, в котором букв “А” больше, чем в других. 0

@temacska1 0 / 0 / 0 Регистрация: 02.05.2013 Сообщений: 37
	03.05.2013, 11:59 [ТС]	3
	благодарю!!! Огромное спасибо 0

Опции темы

Паскаль.Дан текст. слова в котором разделены хотя бы одним пробелом

Решение