Найти одинаковые буквы в слове

@narc · Регистрация: 12.11.2015

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

В слове имеются только две одинаковых буквы. Найти их

@Puporev · 28.02.2017, 15:46

Pascal

var s:string;
    i:integer;
begin
writeln('Введите строку, содержащую ровно 2 одинаковые буквы');
readln(s);
i:=2;
while pos(s[i],s)=i do inc(i); 
writeln('2 раза встречена буква ',s[i]);   
end.

@narc 3 / 4 / 1 Регистрация: 12.11.2015 Сообщений: 77
		1
	Найти одинаковые буквы в слове 28.02.2017, 14:47. Показов 1968. Ответов 1 Метки нет (Все метки) В слове имеются только две одинаковых буквы. Найти их 0

	28.02.2017, 15:46

Опции темы

Найти одинаковые буквы в слове

Решение