Найти все двузначные числа , сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8,9
171
335
Ответы на вопрос:
// pascalabc.net 3.1, сборка 1219 от 16.04.2016 type matrix=array[,] of integer; procedure matprint(a: matrix); begin var m: =length(a,1)-1; for var i: =0 to length(a,0)-1 do begin for var j: =0 to m do write(a[i,j]: 4); writeln end end; function isequal(a: matrix; col: integer): boolean; begin var s: =sign(a[0,col]); for var i: =1 to length(a,0)-1 do s+=sign(a[i,col]); if (s=0) then result: =(a[0,col]< > 0) else result: =false end; procedure deletecol(var a: matrix; col: integer); begin var n: =length(a,0)-1; var m: =length(a,1)-1; for var j: =col+1 to length(a,1)-1 do for var i: =0 to n do a[i,j-1]: =a[i,j]; setlength(a,n+1,m) end; begin var n: =readinteger('строк: '); var m: =readinteger('столбцов: '); var a: =matrixrandom(n,m,-99,99); writeln('исходная матрица'); matprint(a); for var j: =length(a,1)-1 downto 0 do if isequal(a,j) then deletecol(a,j); writeln('результирующая матрица'); matprint(a); end. тестовое решение строк: 8 столбцов: 10 исходная матрица -3 -82 -25 -22 65 1 79 -67 -64 -82 17 36 48 -32 51 11 43 9 -35 4 -10 -5 80 82 -24 66 -12 -58 50 -94 52 70 53 85 -32 -59 46 57 -84 -44 81 71 -55 37 46 -15 -61 25 22 -7 -49 98 -42 -18 -44 -97 -63 -7 -98 99 -86 37 -17 -69 -35 46 82 62 99 11 65 85 -7 -90 23 19 -50 -56 -64 91 результирующая матрица -82 -25 -22 1 -64 36 48 -32 11 -35 -5 80 82 66 50 70 53 85 -59 -84 71 -55 37 -15 22 98 -42 -18 -97 -98 37 -17 -69 46 99 85 -7 -90 19 -64
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Daria15181422.08.2022 18:09
-
leralerochka20207.01.2023 03:13
-
Angelochek191518.01.2020 14:13
-
7Rahat03.02.2020 06:42
-
veronkagavrily25.06.2021 04:16
-
mashuna113.12.2022 18:34
-
Нафаня15830.05.2022 03:29
-
yanazaharova9604.03.2022 20:44
-
mludap26.11.2021 03:01
-
bandygan66607.12.2022 06:39
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.