Вопрос по информатике:
Составьте программу, вычеркивающую из слова Х буквы, встречающиеся при написании слова Х ровно три раза. (паскаль)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.05.2016 18:56
- Информатика
- remove_red_eye 8827
- thumb_up 16
Ответы и объяснения 2
// Программа поддерживает латиницу, кириллицу и дефисы
const
// Первая буквы, англ. "a" - 65, но может быть дефис #45
first_letter = #45;
// Последняя буквы, рус. "я"
last_letter = #1103;
var
x: string;
i: integer;
c: char;
// Сколько раз встречает буква в слове
count: array[first_letter..last_letter] of integer;
begin
readln(x);
// Обнуляем массив
for c := first_letter to last_letter do
count[c] := 0;
// Подсчитываем буквы в слове
for i := 1 to length(x) do
inc(count[x[i]]);
// Выводим слово без букв, встречающихся 3 раза
for i := 1 to length(x) do
if count[x[i]] 3 then
write(x[i])
end.
- 03.05.2016 12:01
- thumb_up 26
begin
write('Слово: ');
readln(s);
writeln(s);
i:=1;
while i
k:=0; c:=s[i];
for j:=1 to length(s) do
if c=s[j] then k:=k+1;
if k=3 then
begin
while pos(c,s)>0 do delete(s,pos(c,s),1);
i:=i-1;
end;
i:=i+1;
end;
writeln(s);
end.
Пример:
Слово: pnbouipobnpongnf
pnbouipobnpongnf
nbuibnngnf
- 04.05.2016 00:53
- thumb_up 47
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.