Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
Вот код:
n, m = int(input()), int(input())
n += m
s1, s2 = set(), set()
for i in range(n):
student = (input())
if student in s1:
s1.remove(student)
s2.add(student)
else:
s1.add(student)
if len(s1) <= 0:
print('NO')
else:
print(len(s1))
Вот ссылка на код с отступами:https://pastebin.com/Ud5AwrSs
В одном килобайте 1024 байтов- 1/2 килобайта-512 байтов, в 1 байте 8 битов. 512*8=4096 бит
1) решаем по формуле Хартли:<span> - вероятность, что достали красный клубок</span><span>бит</span>
65536 цветов это 16 бит, т к 2^16=65536
Размер файла=16*100*100/8=20000 байт= 19,53 кбайта