Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Контрольное задание №10-4 / 10-4 / zadanie_4
.pas program Zadanie_4;
const
M1=[1,2,3];
M2=[1,4,2,5];
var
M3: set of byte;
begin
writeln ('„ л ¬®¦Ґбвў Њ1(1,2,3), M2(1,4,2,5) Ё Њ3=Њ1*Њ2');
M3:=M1*M2;
if 1 in M3 then writeln ('1 Ґбвм ў ¬®¦Ґб⢥ Њ3')
else writeln ('1 Ґв ў ¬®¦Ґб⢥ Њ3');
if 2 in M3 then writeln ('2 Ґбвм ў ¬®¦Ґб⢥ Њ3')
else writeln ('2 Ґв ў ¬®¦Ґб⢥ Њ3');
readln;
end.
const
M1=[1,2,3];
M2=[1,4,2,5];
var
M3: set of byte;
begin
writeln ('„ л ¬®¦Ґбвў Њ1(1,2,3), M2(1,4,2,5) Ё Њ3=Њ1*Њ2');
M3:=M1*M2;
if 1 in M3 then writeln ('1 Ґбвм ў ¬®¦Ґб⢥ Њ3')
else writeln ('1 Ґв ў ¬®¦Ґб⢥ Њ3');
if 2 in M3 then writeln ('2 Ґбвм ў ¬®¦Ґб⢥ Њ3')
else writeln ('2 Ґв ў ¬®¦Ґб⢥ Њ3');
readln;
end.