Цитата:
Сообщение от Tikusjomo
Ошибок немного,быстро исправил,только вот программа ничего не делает после ввода слов
|
Всё, чем могу помочь - нарисовать на Паскале и протестировать. А дальше уж Вы сами.
Ага, понял, в чем ошибка - надо оператор While заменить на If.
На Паскале - так (отлажено; учтите, что, в отличие от С, счет в цикле идет с 1, а не с 0):
Код:
Var
S,Q:String;
i,a,n:Byte;
Begin
Writeln('Enter the string with coma separator:');
Readln(S);
a:=Length(S);
n:=0;
Q:='';
for i:=1 to a do
begin
if (S[i]<>',') and (S[i]<>' ') then Q:=Q+S[i];
if ((S[i]='s') and (S[i+1]=',')) or ((S[i]='s') and (i=a)) then
begin
n:=n+1;
writeln(Q);
Q:='';
end;
end;
Writeln('n = ',n);
Readln
End.