В программе «:=» обозначает оператор присваивания.
при операции div число делится целиком (например при делении 16 на 6 получится 2,666..., но в итоге будет число 2 (в результате получается число без остатка))
при операции mod вычисляется остаток (например при делении 16 на 6 операция вычислит только остаток , а именно "4")
А)а2:=а делить без остатка 10 делить с остатком 10
б)а2:=а делить с остатком 10 делить без остатка 10
в)а2:=а делить с остатком 100 делить без остатка 100
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var k:=a.Where(t->t mod 4=0).Count;
if k>0 then Writeln('Кол-во элементов, делящихся на 4, равно ',k)
else Writeln('Таковых нет')
end.
<u>Пример</u>
n= 13
-26 -4 -41 23 8 -14 29 2 38 -9 32 4 12
Кол-во элементов, делящихся на 4, равно 5
1) Если подразумевается a>=0, то верно.
2) Неверно, нужны скобки: (x > 0) or (y < 0)
3) Если подразумевается c <> 10, то верно.
4) Верно.
5) Неверно.
6) Неверно.
7) Неверно.
8) Неверно.
9) Если в 9 x>=y, то верно (если есть 9).
10) Верно.
11) Неверно, можно исправить так: (x = y) and (y = z).
Ответ: 1, 3, 4, 10.
import random
list = []
for x in range(0,10):
list.append(random.randint(1,100))
#Alternative
#list = [int(num) for num in input().split()]
print(list)
num1=0
for elem in list:
if elem%2==1: num1+=1
num2 = len(list2)-num1
print("Нечетных элементов",num1,"\nЧётных элементов",num2)