Var ma:array[1..m,1..n] of integer; i,j:integer; s:set of integer; {множество, в которое будут попадать элементы строки} begin randomize; s:=[]; writeln('Matrix:'); for i:=1 to m do begin for j:=1 to n do begin ma[i,j]:=random(5); write(ma[i,j]:4); end; writeln; end; for i:=1 to m do begin for j:=1 to n do if not (ma[i,j] in s) then s:=s+[ma[i,j]]; {если элемента нет в множестве - добавляю} writeln(s); {вывод множества} s:=[]; {отчищаю множество для следующей строки} end; end.
Пример работы программы: Matrix: 1 1 0 2 0 2 {1} {2,0} {2,0}
3,7,9 37,93,79 973,979,373 Вообще говоря это зависит от формулировки "используя цифры". Из задания непонятно, использовать нужно ВСЕ цифры, или достаточно использования любых из них. Если под словом "используя" понимать, что можно использовать только эти цифры, но при этом использовать все не обязательно, то можно записать 77 и 999. Всего трёхзначных чисел из цифр 3,7,9 можно записать 3*3*3 (по три возможных цифры на каждую позицию - если цифры на позициях могут повторяться. и 3*3*1, если не могут повторяться.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку