М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

1)написать программу ,которая подсчитывает кол-во 1,2и 3-ех разрядных чисел в массиве,размер n на m из натуральных чисел в диапазонной 1 до 999 заданном случайным образом(двумерный массив).2)подсчитать кол-во чисел в этом массиве,которые содержат одинаковые цифры в своём написании

👇
Ответ:
pmv2002rusp0bof2
pmv2002rusp0bof2
07.02.2020

javascript:

var массив = [], n = prompt("n:"), m = prompt("m:");

for (let сч1 = 0; сч1 < n; сч1++) {

 массив.push();

 for (let сч2 = 0; сч2 < m; сч2++)

   массив[сч1] = (function (от, до) { return Math.round(от - 0.5 + Math.random() * (до - от + 1)); })(1, 999);

}


var разрядов = [0, 0, 0], с_одинаковыми = 0;

for (let сч = 0; сч < n; сч++)

 массив[сч].forEach(function (зн) {

   разрядов[зн < 10 ? 0 : разрядов < 100 ? 1 : 2]++;

   let разр = [зн / 100 | 0, зн / 10 % 10, зн % 10];

   if (разр[0] == разр[1] || разр[0] == разр[2] || разр[1] == разр[2])

     с_одинаковыми++;

 });

alert(разрядов + " " + с_одинаковыми);

4,7(45 оценок)
Открыть все ответы
Ответ:
kharchenko219633
kharchenko219633
07.02.2020

язык программирования python

summ = 0

pro = 0

first = True

N = int(input('Введите N: '))

K = int(input('Введите K: '))

M = int(input('Введите M: '))

str_A = input('Введите последовательность a через пробел: ').split()

A = [int(item) for item in str_A]

for i in range(1, N + 1, 2):

   if A[i] % K != 0 and A[i] % M == 0 and first:

       first = False

       summ = A[i]

       pro = A[i]

   elif A[i] % K != 0 and A[i] % M == 0 and not(first):

       summ += A[i]

       pro *= A[i]

print('Сумма: ' + str(summ))

print('Произведение: ' + str(pro))

4,6(18 оценок)
Ответ:
IvanKabakov
IvanKabakov
07.02.2020

2)

var s1, s2:string;

i: integer;

begin

   s1:='symbols';

   s2:='';

   

   i:=2;

   while i <= length(s1) do

   begin

       s2 += s1[i];

       i += 2;

   end;

   writeln(s2);

end.

4)

var sWord: string;

i, j: integer;

begin

   sWord:='moloko';

   for i:=1 to length(sWord) do

       for j:=length(sWord) downto i+1 do

           if sWord[j] = sWord[i] then

               delete(sWord, j, 1);

   write(sWord);

end.

5)

var text: string;

begin

   text:='Напечатает только это, а это не напечатает';

   writeln(LeftStr(text, pos(',', text) - 1));

end.

4,4(56 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ