var x:integer;
x:=1;
for i:=1 to 21 do
if (i in s1) or (i in s2) then x:=x*i;
s3:=s3+x;
Задание множественных значений Pascal
Задание множественных значений
Множество 1 заполнено цифрами в интервале от 1 до 10, множество 2 – в интервале от 11-21, а множество 3 заполнено произведением этих двух множеств.
Множество 1 заполнено цифрами в интервале от 1 до 10, множество 2 – в интервале от 11-21, а множество 3 заполнено произведением этих двух множеств.
var s1,s2,s3:set of 0..127
begin
s1:=[1..10];
s2:=[11..21];
s3:=s1 * s2;
end;
begin
s1:=[1..10];
s2:=[11..21];
s3:=s1 * s2;
end;
Цитата: wanja
s3:=s1 * s2;
если не ошибаюсь, это пересечение множеств, а под "произведением множеств" автор скорее всего понимал произведение всех значений, или как?
p.s. в любом случае, пересечение s1 и s2 всегда будет = 0 :)
upd: если я правильно понял, то это может выглядеть вот так:
Код: