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

Объяснение:

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.