const
B=['a'..'z'];
const s='windows must die';
var
i:integer;
c:char;
ms: array ['a'..'z'] of integer;
begin
for c:='a' to 'z' do
ms[c]:=0;
for i:=1 to length(s) do
if s in B then inc(ms[s]);
for c:='a' to 'z' do
if ms[c]=1 then write(c,' ');
readln;
end.
(Pascal) Множество
Вот задано множесто В={'a'..'п','р'..'я'}, вводим текст "это форум", нужно найти все буквы входящие один раз и вывести на экран, в этот случае у нас будет э, т, ф, р, у, м.
Цитата: sherry
Код:
if s in B then inc(ms[s]);
Ошибка
Asu2007, не может быть. Лично компилил - всё работало! Хотя.. если учесть, что я работаю с Borland Delphi (алгоритм разрабатывался в консольной модели) - может быть...
Прошу меня простить.
Прошу меня простить.
[COLOR=Red]Переехали в Студенты. Автору топика нарушение за размещение темы в разделе Паскаль, где запрещено размещать просьбы - сделайте за меня.[/COLOR]