Question

СРОЧНО НАДО!!!! 1. Написать программу, которая находит сумму чисел кратных 3.Входящие данные: 2,5,7,9,12,0Выходящие: 212. Написать программу, которая находит количество чисел кратных 5.Входящие данные: 34,5,40,9,36,0Выходящие: 23. Написать программу, которая находит произведения четных и кратных 4 чисел.Входящие данные: 12,3,6,9,8,0Выходящие: 964. Написать программу, которая находит количество нечетных чисел.Входящие данные: 3,5,40,9,36,0Выходящие: 35. Написать программу, которая находит сумму четных чисел кратных 6.Входящие данные: 12,6,55,9,36,0Выходящие: 54​

Answer 1

Объяснение:

1)

Program zero;

Var x, y, i:Integer;

Begin

y:=0;

For i:=1 to 6 do

Begin

Whiteln('Введите число:');

Readln(x);

If x mod 3 = 0 then

y:=y+x

End;

Whiteln('Сумма чисел кратных 3 ровна ', y);

Readln

End.

2)

Program zero;

Var x, y, i:Integer;

Begin

y:=0;

For i:=1 to 6 do

Begin

Whiteln('Введите число:');

Readln(x);

If x mod 5 = 0 then

y:=y+1;

End;

Whiteln('Количество чисел кратных 5 ровно ', y);

Readln

End.

3)

Program zero;

Var x, y, i:Integer;

Begin

y:=1;

For i:=1 to 6 do

Begin

Whiteln('Введите число:');

Readln(x);

If (x mod 4 = 0) and (x mod 2 = 0) then

y:=y*x;

End;

Whiteln('Произведения чисел кратных 4 ровно ', y);

Readln

End.

4)

Program zero;

Var x, y, i:Integer;

Begin

y:=0;

For i:=1 to 6 do

Begin

Whiteln('Введите число:');

Readln(x);

If x mod 2 <> 0 then

y:=y+1;

End;

Whiteln('Количество нечётных чисел ровна ', y);

Readln

End.

5)

Program zero;

Var x, y, i:Integer;

Begin

y:=0;

For i:=1 to 6 do

Begin

Whiteln('Введите число:');

Readln(x);

If (x mod 6 = 0) and (x mod 2 = 0) then

y:=y+x;

End;

Whiteln('Сумма чисел кратных 6 ровна ', y);

Readln

End.

Answer 2

Для решения этих задач можно написать программу на Python. Вот решения для каждой из задач:

1. Найти сумму чисел, кратных 3:

pythonCopy code
numbers = [2, 5, 7, 9, 12, 0]
sum_multiples_of_3 = sum(x for x in numbers if x % 3 == 0)
print(sum_multiples_of_3)

2. Найти количество чисел, кратных 5:

pythonCopy code
numbers = [34, 5, 40, 9, 36, 0]
count_multiples_of_5 = len([x for x in numbers if x % 5 == 0])
print(count_multiples_of_5)

3. Найти произведение четных и кратных 4 чисел:

pythonCopy code
numbers = [12, 3, 6, 9, 8, 0]
product_of_even_and_multiple_of_4 = 1
for x in numbers:
    if x % 2 == 0 and x % 4 == 0:
        product_of_even_and_multiple_of_4 *= x
print(product_of_even_and_multiple_of_4)

4. Найти количество нечетных чисел:

pythonCopy code
numbers = [3, 5, 40, 9, 36, 0]
count_odd_numbers = len([x for x in numbers if x % 2 != 0])
print(count_odd_numbers)

5. Найти сумму четных чисел, кратных 6:

pythonCopy code
numbers = [12, 6, 55, 9, 36, 0]
sum_even_multiples_of_6 = sum(x for x in numbers if x % 2 == 0 and x % 6 == 0)
print(sum_even_multiples_of_6)

Просто скопируйте каждый из этих фрагментов кода в среду программирования Python и выполните его, чтобы получить результаты для каждой из задач.