<u>// PascalABC.NET 3.4, сборка 1766 от 25.08.2018
</u>
begin
var a := new HashSet<integer>(ReadArrInteger('Множество A ->', ReadInteger('Размер множества A =')));
var b := new HashSet<integer>(ReadArrInteger('Множество B ->', ReadInteger('Размер множества B =')));
a.Except(b).Print; Println(' - A\B');
b.Except(a).Print; Println(' - B\A');
a.Intersect(b).Print; Println(' - пересечение A и B');
a.Union(b).Print; Println(' - объединение A и B');
end.
<u>Пример ввода/вывода в приложении.</u>
Делить байты на 1024. в 1 килобайте 1024 байт
<em>// PascalABC.NET 3.2, сборка 1377 от 19.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:integer;
repeat
n:=ReadInteger;
if n>0 then begin
var d:=false; // нужны цифры
var a:=false; // нужны буквы
repeat
var r:=n mod 16;
if r in [0..9] then d:=true
else a:=true;
n:=n div 16
until (d and a) or (n=0);
if a and d then Writeln(3)
else
if a then Writeln(1)
else Writeln(2);
n:=-1 // чтобы из цикла не выйти
end
until n=0
end.
<u>Пример</u>
13
1
15
1
9
2
27
3
0
var a:array[1..10] of integer;
i,s:integer;
Begin
randomize;
for i:= 1 to 10 do begin
a[i]:= random(100);
s:=s+a[i];
end;
writeln(s);
End.
var a:array[1..10] of integer;
i,mk,pk,s,p:integer;
Begin
randomize;
p:=1;
for i:= 1 to 10 do begin
a[i]:= random(30+10)-10;
if a[i]>=0 then begin
pk:=pk+1;
s:=s+a[i];
end
else begin
mk:=mk+1;
p:=p*a[i];
end;
end;
writeln(pk,s,mk,p);
End.
