Проверить символы ряда на четность и записать их в отдельное множество - Free Pascal
Формулировка задачи:
Как проверить символы вписаного рядка на четность и записать их в отдельное множество?
Имею в виду , как записать четные в 1 множество , а нечетные в другое?
Решение задачи: «Проверить символы ряда на четность и записать их в отдельное множество»
textual
Листинг программы
var
s : string;
i : integer;
ch : char;
odds, evens : set of char;
begin
readln(s);
for i := 1 to length(s) do
if odd(ord(s[i])) then odds := odds + [s[i]]
else evens := evens + [s[i]];
writeln('Символы с нечетными кодами:');
for ch := #0 to #255 do
if ch in odds then write(ch:2);
writeln;
writeln('Символы с четными кодами');
for ch := #0 to #255 do
if ch in evens then write(ch:2);
writeln;
if odds * evens = [] then writeln('Что я говорил? Нет пересечений')
else writeln('Эта строка никогда не будет напечатана')
end.