с клавиатуры вводится последовательность знаков до тех пор пока не будет

С клавиатуры вводится последовательность знаков до тех пор пока не будет введен пробел требуется отыскать количество знаков "a" во введенной последовательности

Задать свой вопрос
Есения Пидкус
pascal abc либо free pascal? и по поводу последовательности они иду сходу одной строкой либо вводится знак позже ентер и так пока не нажмут пробел ?
Aleksandra Panfilkina
если правдиво то сама не знаю основное чтобы было сделано
София Брюхневич
А среда выполнения какая ?
Вован Кузниченков
я в этом полный ноль
Leonid Pirskij
то есть для тебя все одинаково где только бы было?
Даниил Вороко
да
Semjon Shmehtin
ну чтоб примерно было изготовлено
Карнобеда Вован
если тебе не трудно сделай а то мне на завтра необходимо
Хабазова Елизавета
у тебя что нибудь вышло
Аринка Сенявина
спасибо огромное
2 ответа
Еще один вариант:
var
  n:integer;
  s:string;
begin
while slt;gt;' ' do
  begin
  readln(s);
  if s='a' then n:=n+1
  end;
writeln('Количество а: ',n);
end.
Написал так.. если введешь пробел сразу он просто выведет количество А = 0....вводится одна строка по Ентеру считает...ну в общем попробуешь..вводи строку на британской расскладке.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт