Тема: Множини латинських букв
Програма працює і виводить правильний результат.
Проте, вона в мене надто лаконічна вийшла, очевидно завдання частково виконує.
Завдання: Задано множини А, В, С малих букв латинського алфавіту. Утворити
множину D=A∩ B∩ C. Надрукувати елементи множин A, B, C, D.
Надрукувати елементи множин A, B, C, D. - порадьте, як цю кінцеву частину завдання тут чим по коротше доробити?
Код:
PROGRAM LATIN;
uses crt;
var A,B,C,D: set of char;
s:char;
begin clrscr;
A:=['a','b','c','m'];
B:=['a','f','h','b'];
C:=['a','b','z','f'];
D:=A*B*C;
for s:= 'a' to 'z' do
if s in D then write(s);
readln
end.