Program n1;
var a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
end.
<span> X Y
</span>1.(101,101) (5, 5)
2.(1000,1000) (8, 8)
3.(1001,100) (9, 4)
4.(1011,1110) (11, 14)
5.(1100,110) (12, 6)
6.(1100,111) (12, 7)
7.(1011,111) (11, 7)
8.(1011,10) (11, 2)
9.(1001,10) (9, 2)
10.(1001,11) (9, 3)
11.(1010,11) (10, 3)
12.(1010,100) (10, 4)
13.(111,100) (7, 4)
<span>14.(111,10) (7, 2)</span><span>
</span>График во влажении. Не знаю как их плавной линией соединить, сильно они разбросаны.
//PascalABC.NET
var
a,i:integer;
b:array [0..9] of boolean;
begin
Readln(a);
for i:=0 to 9 do b[i]:=false;
While a>0 do
begin
if b[a mod 10]=false then b[a mod 10]:=true;
a:=a div 10;
end;
for i:=0 to 9 do if not b[i] then Writeln(i);
end.