If b%a==0: print ('YES')
Else: print ('NO')
<span>1 байт это 8 бит
1000\8=125 байт
</span>
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),1,27); a.Println;
var s:=a.Where((x,i)->i.IsEven);
Writeln('Cумма элементов с нечетными номерами: ',s.Sum);
Writeln('Произведение элементов с нечетными номерами: ',
s.Aggregate(BigInteger(1),(x,y)->x*y));
end.
<u>Пример</u>
n= 25
13 6 18 13 14 23 7 3 24 6 6 9 14 8 4 2 14 2 14 22 9 24 19 20 27
Cумма элементов с нечетными номерами: 183
Произведение элементов с нечетными номерами: 167343326631936
Номер 1
const
D: array[1..7] of string = ('Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday');
var
day: longint;
begin
writeln('Введите номер дня.');
readln(day);
writeln(D[day]);
end.
1. А = 110011
А2 в А10 (из двоичной в десятичную)
110011 = 1∙25+1∙24+0∙23+0∙22+1∙21+1∙20 = 32+16+0+0+2+1 = 51
110011 = 51
А10 В А8 (из десятичной в восьмеричную)
51:8=6 (3 в остатке)
51 = 63
2.
ОСНОВАНИЯ 2: 11111, 11000010;
ОСНОВАНИЯ 8: 37, 302;
ОСНОВАНИЯ 10: 31, 194;
ОСНОВАНИЯ 16: 1F, C2;
3. Переведем эти два числа в десятичную систему.
111011101 = 477
101110111 = 375
Ответ. Нет, они не равны.
4. 010, 100, 111, 1001, 1101, 10001, 100001, 110000