Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика Практика / 17
.pas Program praktika17;
Uses CRT;
Var s: String;
n, i: Integer;
Begin
Write('Введите строку символов: ');
ReadLn(s);
n:=Length(s);
For i:= n Downto 2 Do
Begin
If (s[i]=s[i-1])
Then Delete(s, i-1, 2);
End;
WriteLn;
WriteLn('Выходная строка:');
WriteLn;
WriteLn(s);
ReadLn;
End.
Uses CRT;
Var s: String;
n, i: Integer;
Begin
Write('Введите строку символов: ');
ReadLn(s);
n:=Length(s);
For i:= n Downto 2 Do
Begin
If (s[i]=s[i-1])
Then Delete(s, i-1, 2);
End;
WriteLn;
WriteLn('Выходная строка:');
WriteLn;
WriteLn(s);
ReadLn;
End.
Соседние файлы в папке Информатика Практика