program pr132;
uses crt;
var s,sn: string;
    i,x,g: integer;
begin
writeln('Основное');
readln(s);
x:=length(s);
for i:=1 to x do
 if s[i]<>s[1] then 
    begin
     sn:=sn+s[i];
     g:=g+1;
    end
    else
     g:=g+0;
 if g>0 then
    begin
      writeln(sn);
      readln();
    end
    else
     begin
      writeln ('Нет повторений');
      readln();
     end;
end.

Как сделать, если первая буква не повторяется, то чтобы она не удалялась?

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

21.05.2014, 18:37

Ответы с готовыми решениями:

Как сделать ucfirst() в UTF-8 в массиве, чтобы только первая буква была заглавной
Возник вопрос: Как сделать ucfirst() в UTF-8 в массиве, чтобы только первая буква была заглавной....

Как сделать кнопку чтобы удалялась строка из Access
Как сделать кнопку чтобы удалялась строка из Access через datagridview? у меня получается только...

Вывести в алфавитном порядке слова текста, в которых повторяется первая буква
program PascalGuru; uses crt; label 1,2; var s,zs,zp,gl,slovo,l:string; i,j,p,n,nn:integer;...

Расположить слова так, чтобы буква, на которую заканчивается слово, была такой же, как первая буква следующего слова
Даны простые слова. Нужно составить такой порядок, чтобы буква на которую заканчивается слово была...

	21.05.2014, 18:37

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

21.05.2014, 18:37

Помогаю со студенческими работами здесь

Как при активации чекбокса сделать так, чтобы текстареа удалялась?
Нужен простой пример с функцией яваскрипт. Существует текстареа и чекбокс Как при активации...

Вывести в порядке, обратном к алфавитному, слова текста, в которых не повторяется первая буква
Дана строка, содержащая русский текст. Вывести в порядке, обратном к алфавитному, слова текста, в...

Как сделать чтобы переменная создавалась 1 раз, а при закрытии программы не удалялась
Я делаю форму входа с паролем, но при этом у меня возникла проблема. public static string key;...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх