Решаем задачи Абрамян на Паскале. String44

String44. Дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). Найти количество слов, которые содержат ровно три буквы «А».

Решение:

program String44;
var
 S:String;
 i,Num,NumA:integer;

begin
  Write('S: ');
  Readln(S);

  i:=1;
  Num:=0;
  NumA:=0;

  While (i<=Length(S)) do
   begin
    if (S[i]=' ') then
     begin
      if NumA=3 then inc(num);
      NumA:=0;
     end;

    if S[i]=chr(128) then inc(NumA);  //Если кодировка в консоли и в IDE совпадают, условие можно заменить на S[i]='А'

    inc(i);
   end;
  Writeln(Num);
end.

program String44;

var

S:String;

i,Num,NumA:integer;

begin

Write('S: ');

Readln(S);

i:=1;

Num:=0;

NumA:=0;

While (i<=Length(S)) do

begin

if (S[i]=' ') then

begin

if NumA=3 then inc(num);

NumA:=0;

end;

if S[i]=chr(128) then inc(NumA); //Если кодировка в консоли и в IDE совпадают, условие можно заменить на S[i]='А'

inc(i);

end;

Writeln(Num);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String44

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ