Цитата:
Сообщение от NIKITAKOLTSOV
хммм... вообщето я был занят другими задачами, которые я был в силах решить, а не смотрел футбол. просто невнимательность, даже сказать незнание, т.к. я не шарю в паскале, я думал что алгоритмы отличаются. вот и обратился за новой помощью.
|
Очень грустно, что "не шарите в Паскале", потому как на форумах далеко не уедешь. Своим умом жить надо, раз уж взялись учиться.
Эх, что уж с Вами сделаешь... Гореть мне в аду, ну да ладно:
Код:
VAR
S,S1:String;
S2:Array[1..250] of String;
i,i1,i2,k:Byte;
BEGIN
WriteLn('Enter the string:');
ReadLn(S);
WriteLn;
i:=0;
k:=0;
Repeat
Repeat
Inc(i);
Until S[i]<>' ';
i1:=i;
Repeat
Inc(i);
Until (S[i]=' ') or (i=Length(S));
If S[i]=' ' then i2:=i else i2:=i+1;
S1:=Copy(S,i1,(i2-i1));
WriteLn(S1);
If (S1[1]='a') or (S1[1]='A') or (S1[1]='а') or (S1[1]='А') then
begin
Inc(k);
S2[k]:=S1;
end;
Until i=Length(S);
WriteLn;
WriteLn;
For i:=1 to k do
Write(S2[i]+' ');
WriteLn;
ReadLn;
END.
Проверяются начальные буквы слов как в латинице, так и в кириллице, причем в обоих регистрах.