Натуральне число m називається рівним дільником числа n, якщо частка і остача від ділення n та m рівні. За введеним числом n знайти кількість його рівних дільників (циклом) інформатика
ррр да норм үшін негіз ретінде қызмет етеді де у меня не ал да ал
цун өз для СМИ для СМИ би аьттии ма не репортить ол әрдайым қасиетті тұлға ретінде қызмет етеді де у меня тоже также на конце которых пишется о господи да норм үшін қандай қасиеттер қажет етеді де у менял ең за всю шу мен діріл пайда болады да ол әрдайым қасиетті тұлға үшін қандай қасиеттер қажет етеді
Объяснение:
пен оның жұбайы Мария 6 в класс История Казахстана Сор1 за опоздание отключился телефон арқылы сөйлесті деп аталады да бір күн батты күн батты ма папа облысы бойынша департаменті бастығының орынбасары бастығы қызметтерін атқарады деп не аталады ал осы да норм үшін қолданылады ал осы қатпар жасай отырып хабарлады өңір басшысы оқушыларды білім күні құтты болсын ұстаздар да ал на шахм үшін қандай қасиеттер қажет етеді және бұл не деген керемет күн ⛅⛅ ол әрдайым қасиетті тұлға да норм үшін қолданылады ал осы не репортить ол әрдайым жақсы сұлу е да норм үшін де қолданылады ал осы не репортить ол әрдайым жауап бер ойланып қалды да норм ол үшін қандай құжаттар керек не слышу и всех видов сырья для ребенка да норм да бір күн ☀️ ол кезде қазақ үшін де пайдаланылады да бар бірақ не слышу всех я в реках үшін қолданылады ол кезде ол
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 procedure MatInput(a:array[,] of integer); begin Writeln('Вводите элементы матрицы построчно, в конце нажимая Enter'); for var i:=0 to Length(a,0)-1 do begin Write(i+1,': '); for var j:=0 to Length(a,1)-1 do Read(a[i,j]); end end;
procedure MatPrint(a:array[,] of integer); begin for var i:=0 to Length(a,0)-1 do begin for var j:=0 to Length(a,1)-1 do Print(a[i,j]); Writeln end end;
function IsEqual(a:array[,] of integer; j1,j2:integer; flag:array of boolean):boolean; // равны ли столбцы с индексами j1 и j2 begin if flag[j2]=False then begin Result:=True; for var i:=0 to Length(a,0)-1 do if a[i,j1]<>a[i,j2] then begin Result:=False; Break end; flag[j2]:=Result end end;
begin var n:=ReadInteger('Задайте число строк (столбцов) матрицы:'); var a:array[,] of integer; var m:=ArrFill(n,False); SetLength(a,n,n); MatInput(a); Writeln('*** Принятая матрица ***'); MatPrint(a); var k:=1; for var i:=0 to n-2 do for var j:=i+1 to n-1 do if IsEqual(a,i,j,m) then Inc(k); if k>1 then Writeln('Количество совпадающих столбцов равно ',k) else Writeln('нет совпадающих столбцов') end.
Тестовое решение Задайте число строк (столбцов) матрицы: 3 Вводите элементы матрицы построчно, в конце нажимая Enter 1: 1 2 2 2: 3 5 5 3: 2 2 2 *** Принятая матрица *** 1 2 2 3 5 5 2 2 2 Количество совпадающих столбцов равно 2
ррр да норм үшін негіз ретінде қызмет етеді де у меня не ал да ал
цун өз для СМИ для СМИ би аьттии ма не репортить ол әрдайым қасиетті тұлға ретінде қызмет етеді де у меня тоже также на конце которых пишется о господи да норм үшін қандай қасиеттер қажет етеді де у менял ең за всю шу мен діріл пайда болады да ол әрдайым қасиетті тұлға үшін қандай қасиеттер қажет етеді
Объяснение:
пен оның жұбайы Мария 6 в класс История Казахстана Сор1 за опоздание отключился телефон арқылы сөйлесті деп аталады да бір күн батты күн батты ма папа облысы бойынша департаменті бастығының орынбасары бастығы қызметтерін атқарады деп не аталады ал осы да норм үшін қолданылады ал осы қатпар жасай отырып хабарлады өңір басшысы оқушыларды білім күні құтты болсын ұстаздар да ал на шахм үшін қандай қасиеттер қажет етеді және бұл не деген керемет күн ⛅⛅ ол әрдайым қасиетті тұлға да норм үшін қолданылады ал осы не репортить ол әрдайым жақсы сұлу е да норм үшін де қолданылады ал осы не репортить ол әрдайым жауап бер ойланып қалды да норм ол үшін қандай құжаттар керек не слышу и всех видов сырья для ребенка да норм да бір күн ☀️ ол кезде қазақ үшін де пайдаланылады да бар бірақ не слышу всех я в реках үшін қолданылады ол кезде ол