Запишите словами или в символьном виде условия, которое определят множество: (1,3,5,7,9)
(5,6,7)
(a,e,ё,и,o,y,ы,э,ю,я)
(17,34,51,68,85)
(00,01,10,11)
(0,1,2,3,4,5,6,7,8,9,A,B,C)
отрезок [0; 1]
Для каждого из следующих множеств выберете универсальное множество и запишите дополения А
А = (1,3,5,7,9);
A = (a,e,и,o,y,ы,э,ю,я)
A = (17,34,51,68,85
A = (00,10)
A = (0,1,2,3,4,5,6,7,8,9,A,B,C)
A = отрезок [0,1 ]
Для пары множеств определите пересечение А * B
A = {1,3,5,7,9} B= {1,5,6,9,12}
A = {а,б,в,г,д,е,ё,ж} B= {а,е,ё,и,о,у,ы,э,ю,я}
A = {17,34,51,68,85} B= {17,34,51,68,85}
A = {00,10} B= {01,11}
A = {0,1,2,3,4,5,6,7,8,9,A,B,C} B= {A,B,C,D,E,F,G,H}
A = [5;15] B= [10;20]
A = [5;15] B= [0;20]
A = [5;15] B= [10;12]
A = [;15] B= [20;30]
Для пары множеств определите объединение A + B
A = {1,3,5,7,9} B= {1,5,6,9,12}
A = {а,б,в,г,д,е,ё,ж} B= {а,е,ё,и,о,у,ы,э,ю,я}
A = {17,34,51,68,85} B= {17,34,51,68,85}
A = {00,10} B= {01,11}
A = {0,1,2,3,4,5,6,7,8,9,A,B,C} B= {A,B,C,D,E,F,G,H}
A = [5;15] B= [10;20]
A = [5;15] B= [0;20]
A = [5;15] B= [10;12]
A = [;15] B= [20;30]
function F() : integer;
var
k,i : integer;
begin
k := 0;
for i := 100 to 999 do
if (i mod 13 = 0) and (i mod 100 <> 3) then
k := k +1;
Result := k;
end;
begin
writeln (f());
end.
const
n = 30;
var
a : array [1..n] of integer;
i,b : integer;
r : boolean;
begin
readln (b);
i := 1;
r := false;
While (not r) and (i <= n) do
begin
if a[i] = b then
r := true;
i := i +1;
end;
if r then
writeln ('Есть')
else
writeln ('Нет');
end.
Не знаю, как Вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона.
Sub ()
Dim s As Stringr
s = "THIS IS THE GREATEST TEST STRING AND ALL K/G CHARACTERS NEED TO BE KILLED"
DeleteChar s, "G"
DeleteChar s, "K"
MsgBox s
End Sub
Sub DeleteChar(ByRef s As String, c As String)
'Удаляем из строки s символ c
Dim k As Integer
Do
k = InStr(s, c)
If k > 0 Then s = Left(s, k - 1) + Right(s, Len(s) - k)
Loop While k > 0
End Sub
Тестовое решение:
THIS IS THE REATEST TEST STRIN AND ALL / CHARACTERS NEED TO BE ILLED