Программка на Паскале, используя массив, Безотлагательно, пожалуйста!!!!!

Программка на Паскале, используя массив, Безотлагательно, пожалуйста!!!!!

Задать свой вопрос
1 ответ
Program n1;
var   
      st: string; 
      i,k:integer;
begin
writeln('Введите строчку'); readln(st);
k:=0;
for i:=1 to length(st) do
    if (st[i]='а') and ((st[i+1]=' ') or (i=length(st))) then k:=k+1;
writeln(k);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт