Подсчитать сколько букв о и а в слове

@reddack1 · Регистрация: 04.09.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте, задачку дали мне.
При вводе слова, например: "Информатика", подсчитать сколько букв о и а в слове. Слово вводить с клавиатуры.

Добавлено через 11 часов 17 минут
Хотя нет, слово вводить с клавиатуры не нужно

@Puporev · 22.10.2013, 07:17

Pascal

s:='Информатика';
k:=0;
for i:=1 to length(s) do
if s[i] in ['о','а'] then k:=k+1;

@ildwine · 22.10.2013, 07:19

Pascal

var
  s : string[50];
  ka, ko, i : byte;
begin
  ka := 0;
  ko := 0;
  writeln('введите слово');
  readln(s);
  for i := 1 to length(s) do
  begin
    if s[i] = 'а' then inc(ka);
    if s[i] = 'о' then inc(ko)
  end;
  writeln('количество букв "а" = ', ka, ' количество букв "о" = ', ko);
  readln
end.

@reddack1 0 / 0 / 0 Регистрация: 04.09.2013 Сообщений: 20
		1
	Подсчитать сколько букв о и а в слове 22.10.2013, 07:14. Показов 7219. Ответов 2 Метки нет (Все метки) Здравствуйте, задачку дали мне. При вводе слова, например: "Информатика", подсчитать сколько букв о и а в слове. Слово вводить с клавиатуры. Добавлено через 11 часов 17 минут Хотя нет, слово вводить с клавиатуры не нужно 0

	22.10.2013, 07:19

Подсчитать сколько букв о и а в слове

Решение