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

Решите на языке питон-программирование. найдите все натуральные числа от 1 до 1000 кратные 3, определите среднее арифметическое этих чисел. результат вывести на экран.​

👇
Ответ:
murahkina2006
murahkina2006
27.03.2023

Объяснение:

#наименьшее кратное 3 на отрезке [1; 1000]

#(x+k-1)//k - деление с округлением вверх

mn = (1+(3-1))//3 * 3

#наибольшее кратное 3 на отрезке [1; 1000]

#x//k - деление с округлением вниз

mx = 1000//3 * 3

#среднее арифметическое чисел, кратных 3

#это следует из формулы суммы арифметической прогрессии

#sum = (a1+an)/2*n - сумма

#mean = sum/n = (a1+an)/2 - среднее

mean = (mn+mx)/2

print(mean)

4,4(79 оценок)
Открыть все ответы
Ответ:
SergeyS9
SergeyS9
27.03.2023

Форматированный код на C#  и демонстрация работы на скриншотах.

Код текстом ниже.

using System;

using System.Linq;

namespace task29989793

{

   class Program

   {

       static void Main()

       {

           Console.Write("Enter number: ");

           var number = Console.ReadLine().Select(i => int.Parse(i.ToString()));

           Console.WriteLine($"Count of odd digits: {number.Count(i => i % 2 == 1)}");

           Console.WriteLine($"Count of even digits: {number.Count(i => i % 2 == 0)}");

       }

   }

}


Написать программу подсчитывающую кол-во чётных и нечётных цифр в числе.
Написать программу подсчитывающую кол-во чётных и нечётных цифр в числе.
4,5(55 оценок)
Ответ:
Azozylya
Azozylya
27.03.2023
'1. Сформировать одномерный массив из восьми вещественных значений.
Dim M(8) As Single, i As Integer, s As String
For i = 1 To 8
M(i) = Rnd * 20 - 10
s = s + CStr(M(i)) + " "
Next
MsgBox s

'2. Сформировать двумерный массив из А строк и В столбцов.
Dim M() As Single, i As Integer, j As Integer, A As Integer, B As Integer, s As String
A = 3
B = 5
ReDim M(A, B)
For i = 1 To A
For j = 1 To B
M(i, j) = Rnd * 20 + 2
s = s + CStr(M(i, j)) + "   "
Next
s = s + vbCrLf
Next
MsgBox s

'3. Составить программу для определения максимального и минимального элементов двумерного массива.
Dim M() As Single, i As Integer, j As Integer, A As Integer, B As Integer, s As String
Dim Min As Single, Max As Single
A = 3: B = 5
Min = 100: Max = 0
ReDim M(A, B)
For i = 1 To A
For j = 1 To B
M(i, j) = Rnd * 20 + 2
s = s + CStr(M(i, j)) + "   "
If Max < M(i, j) Then Max = M(i, j)
If Min > M(i, j) Then Min = M(i, j)
Next
s = s + vbCrLf
Next
s = s + "Max = " & Max & vbCrLf
s = s + "Min = " & Min & vbCrLf
MsgBox s

'4. Сформировать одномерный массив из 10 целых элементов. Найти сумму положительных и четных элементов массива.
Dim M(10) As Integer, i As Integer, sum As Integer, s As String, s1 As String
For i = 1 To 10
M(i) = Rnd * 20 - 10
s = s + CStr(M(i)) + " "
If (M(i) > 0) And (M(i) Mod 2 = 0) Then s1 = s1 + CStr(M(i)) + " ": sum = sum + M(i)
Next
s = s + vbCrLf
s = s + s1 + vbCrLf
s = s + "sum = " & sum
MsgBox s
4,5(98 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ