Сначала разберёмся с начертаниями. всего возможно 8 вариантов: 1) обычный текст 2) полужирное текст3) курсивное текст4) подчёркнутое текст 5) полужирное + курсивное текст6) полужирное + подчёркнутое текст 7) курсивное + подчёркнутое текст 8) полужирное + курсивное + подчёркнутое текст умножаем эти 8 вариантов на 2 размера и получаем результат: 16 ответ: всего существует 16 различных вариантов форматирования слова «текст»
Zadacha_1; var a,b,c:integer; begin writeln (' введите число'); readln(a); b:=a mod 10; a:=a div 10; c:=a mod 10; a:=a div 10; if (a = b) or (a=c) or (b = c)then writeln ('такие числа есть') else writeln('таких чисел нет'); end.
zadacha_2; var a:integer; begin writeln(' введите время в минутах'); readln(a); a:=a mod 10; if ((a >= 0) and (a <= 3)) or ((a > 5) and (a <= 8)) then writeln('зелёный'); if ((a > 3) and (a <= 5)) or ((a > 8) and (a < 0)) then writeln('жёлтый'); end.
При пересечении - 30,
при объединении - 40+30=70