Дана последовательность слов; между соседними словами запятая, за последним
словом - точка. Напечатать все слова, встречающиеся в последовательности
по одному разу.
Модератор: Модераторы
Сквозняк писал(а):Пройдись циклом, распихай все слова в массив строк по строкам типа ansistring, а потом сравнивай строки. Строки одно типа можно сравнивать будто они числа. Те строки, что имеют не нулевую длину и дублируются, сделай нулевой длины - вот так можно S:=''; А после пройдись циклом и распечатай все строки с ненулевой длиной.
Xiean писал(а):а как это сделать в коде? я просто в паскале ни бэ ни мэ
Вернуться в Free Pascal Compiler
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13