В заданной последовательности литер, состоящей из букв латинского алфавита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h".

@Lirik18 · Регистрация: 26.04.2009

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

Немогу написать программу. В заданной последовательности литер, состоящей из букв латинского алфа-вита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h".

@Puporev · 30.04.2009, 11:52

Pascal

uses crt;
const b=['a','e','c','h'];
var s:string;
    k,i:integer;
begin
clrscr;
repeat
writeln('Введите строку, содержащую точку');
readln(s);
if pos('.',s)=0 then
writeln('Строка введена неверно. Повторите ввод.');
until pos('.',s)>0;
k:=0;
for i:=1 to pos('.',s) do
if s[i] in b then k:=k+1;
writeln('Количество символов a,e,c,h=',k);
readln
end.

@Lirik18 0 / 0 / 0 Регистрация: 26.04.2009 Сообщений: 7
		1
	В заданной последовательности литер, состоящей из букв латинского алфавита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h". 30.04.2009, 03:09. Показов 3406. Ответов 1 Метки нет (Все метки) Немогу написать программу. В заданной последовательности литер, состоящей из букв латинского алфа-вита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h". 0

	30.04.2009, 11:52

Опции темы

В заданной последовательности литер, состоящей из букв латинского алфавита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h".

Решение