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

Склавиатуры вводятся 10 двузначных чисел. напечатать те из них, которые делятся нацело на 4, но не делятся на 6. подсчитать их количество.

👇
Ответ:
бека151
бека151
06.12.2020

const

  n = 10; //Количество чисел, которое нужно ввести
var
  a: array [1..n] of 10..99; {Массив двузначных чисел, которые вводятся с клавиатуры}
  number, i: integer; //number - количество чисел

begin
  number:= 0; //Обнуляем счетчик
  for i:= 1 to n do //Вводим n двузначных чисел
  begin
    writeln('Введите двузначное число');
    readln(a[i]);
  end;
  write('Числа, которые делятся на 4,но не делятся на 6: ');
  for i:= 1 to n do  {Распечатываем числа, которые делятся на 4, но не делятся на 6}
    if (a[i] mod 4 = 0) and (a[i] mod 6 <>0) then {если число делится на 4 и не делится на 6, прибавляем к счетчику 1}
  begin
    write(a[i], ' ');
    number:= number + 1;
  end;
  writeln;
  writeln('Количество чисел, которые делятся на 4, но не делятся на 6: ', number);
end.

4,4(32 оценок)
Открыть все ответы
Ответ:
sofiya13031
sofiya13031
06.12.2020
Const heigth = 10
Const width = 10

Sub Ìàêðîñ1()
    Dim Sum(heigth - 1, width - 1)
    Dim Product(heigth - 1, width - 1)
    
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            Sum(i, j) = i + j
            Product(i, j) = i * j
        Next j
    Next i
    
    Call Show(Sum, 0, 0)
    Call Show(Product, 0, 12)
End Sub

Sub Show(ByRef m, dx, dy)
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
        Next j
    Next i
End Sub
4,6(7 оценок)
Ответ:

Короче. Вот код.

def matrix_gen(gen, n, m):    Matrix = [];    for i in range(n):        a = [];        for j  in range(m):            a.append(gen[j]);        Matrix.append(a);    return Matrix;

Объяснение

Сначало ты инициализируешь функицю с названием "matrix_gen", которая принимает 3 параметра, 'gen' -- это генератор которые ты будешь использовать. 'n' & 'm' это размер матрицы.

Второй строчкой ты инициалихируешь пустой массив, которые похже заполнишь. Третей строчкой ты в for цикле обходишь все строки матрицы, они же подмассивы массива  Matrix, просто 'a'. Делаем мы это 'n' раз.

Четвётрой строчкой ты инициализируешь массив(ы, мы в цикле) 'a', и следующей строчкой заполняешь уже его. Так же в for цикле. Всего в нём будет 'm' элементов.

Надеюсь решение правильное. Честно говоря у тебя вопрос очень странно поставлен.

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