СРОЧНО НАДО!!!!
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
Ответы
Объяснение:
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.