Var m1,m2,m3,m4,m5:set of char;
c:char;
begin
m1:=['0'..'9'];
m2:=['.',',',':','?','!',';'];
m3:=['a'..'z'];
m4:=m1*m2*m3;
m5:=m1+m2+m3;
writeln('Пересечение множеств:');
for c:=chr(32) to chr(255) do
if c in m4 then write(c:2);
writeln;
writeln('Объединение множеств:');
for c:=chr(32) to chr(255) do
if c in m5 then write(c:2);
writeln;
end.
Результат:
Пересечение множеств:
Объединение множеств:
! , . 0 1 2 3 4 5 6 7 8 9 : ; ? a b c d e f g h i j k l m n o p q r s t u v w x y z
Область ограничена параболой и прямой. На первой диаграмме видно что они пересекаются. На диаграмме лист более детально видно область и можно записать значения.
A) функция print не имеет ()
б) Ошибка, нет српвнения, нет then
в) нет if, ошибка
г) ошибка в теле условия( ошибка в присваивании )
1) если введённое число попадёт в промежуток от 1 до 11, то программа выполнит сложение 0+ введённое число и выведет результат.
Например,
Вводим 3, 0+3=3, программа выведет 3
2) аналогично
На картинке: стакан с напитком и эскимо на палочке с глазурью