Саша Макаров
ИП
Иван Петухов
Я не помню Паскаль.
На С это будет выглядеть примерно так:
a=0; b=0; i=0;
while(str != '\n')
{
if(str == "a") a++;
if(str == "b") b++;
i++;
}
ДГ
Дмитрий Гужва
for i:=1 to length(s) do begin
if s[ i]='a' then inc(counta) else
if s[ i]='b' then inc(countb);
end;
Похожие вопросы