![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 29.01.2021
Сообщений: 15
|
![]()
var s:string; i:integer; m:set of char;
begin writeln('Введите слово:'); readln(s); m:=[]; i:=1; while i<=length(s) do if s[i] in m then delete(s,i,1) else begin m:=m+[s[i]]; i:=i+1; end; writeln(s); end. |
![]() |
![]() |
![]() |
#2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]() Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переделать код с Pascal на С++ | Andry95 | Общие вопросы C/C++ | 0 | 14.03.2016 11:23 |
Переделать программу pascal | tdsotm | Помощь студентам | 1 | 06.12.2014 16:50 |
Переделать из Pascal в Python | Anonim123 | Помощь студентам | 0 | 24.05.2014 15:55 |
Переделать программу в Pascal | Skipper Ok | Помощь студентам | 1 | 18.11.2013 05:32 |
переделать программу из С++ в Pascal | Evelin_18 | Помощь студентам | 0 | 09.12.2012 23:49 |