Ввести 3 строки, объединить их в одну, сосчитать, сколько букв ‘A’ содержит объединенная строка

@masimka001 · Регистрация: 20.03.2012

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

Ввести 3 строки, объединить их в одну, сосчитать, сколько букв ‘A’ содержит объединенная строка.

@Puporev · 30.05.2012, 10:13

Вводишь как в другой задаче.
Объединяешь

Delphi

1	s:=s1+s2+s3;

Выводишь в Edit4
считаешь

Delphi

k:=0;
for i:=1 to length(s) do
if s[i]='A' then k:=k+1;//это либо для русских, либо для латинских, такую АВ и пишешь
 //если нужно для обеих, то пишешь if s[i] in ['A','A'] //1 раз русская, второй латинская

выводишь в другой Эдит

Delphi

1	Edit5.Text:='Количество букв А='+IntToStr(k);

@masimka001 0 / 0 / 0 Регистрация: 20.03.2012 Сообщений: 25
		1
	Ввести 3 строки, объединить их в одну, сосчитать, сколько букв ‘A’ содержит объединенная строка 30.05.2012, 09:47. Показов 1072. Ответов 1 Метки нет (Все метки) Ввести 3 строки, объединить их в одну, сосчитать, сколько букв ‘A’ содержит объединенная строка. 0

	30.05.2012, 10:13

Ввести 3 строки, объединить их в одну, сосчитать, сколько букв ‘A’ содержит объединенная строка

Решение