Байт умножаешь на 2 и получиться бит и бит на 10 и полауч мега байты
Var a,b,c:integer;begin readln(a); readln(b); readln(c); writeln((a+b+c)/3);end.
44,94,94(четные) 47,97,99,97,99 (не четные(
1)условное обозначение:
Д-девочка
Б-блондин
Л-любит математику
ДБ-девочки блондинки
БЛ-блондины,любящие математику
ДЛ-девочки,любящие математику
ДБЛ-блондинка,которая любит математику
Д=20-11-5-1=3
Б=24-1-11-11=1
Л=17-5-1-11=0
ДБ=12-1=11
БЛ=12-1=11
ДЛ=6-1=5
ДБЛ=1
всего человек в классе:Д+Б+Л+ДБ+БЛ+ДЛ+ДБЛ=3+1+0+11+11+5+1=32
Ответ:32 человека всего в классе.
===== PascalABC.NET =====
begin
var (x, y) := ReadReal2('Введите X, Y:');
if (x * x + y * y <= 9) and (x * x + y * y >= 4) and
(x <= 0) and (y >= 0) or
(x * x + y * y <= 4) and (x >= 0) and (y <= 0) then
Writeln('Да')
else
Writeln('Нет')
end.