Найти отношения «быть делителем» между двумя множествами введенными пользователем (элементы первого множества являются делителями второго множества) — Pascal(Паскаль)

program delitel;
type
   univ=array [1..5,1..5] of integer;
Var
   a:univ;
   i,j,x:integer;
begin
writeln ('Введите 4  элемента 1 множества');
for i:=1 to 4 do
    begin
    readln(x);
    a[i+1,1]:=x;
    end;
writeln ('Введите 4 элемента 2 множества');
for i:=1 to 4 do
    begin
    readln(x);
    a[1,i+1]:=x;
    end;
for i:=2 to 5 do
    for j:=2 to 5 do
    if a[1,j] mod a[i,1]=0 then a[i,j]:=1 else a[i,j]:=0;
for i:=2 to 5 do
    begin
       for j:=2 to 5 do write (a[i,j]);
       writeln;
    end;
readln;
end.

Leave a Comment