<span>11010010=210
172=</span>10101100
1)
var
a, b, c, d: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма цифр равна: ', b + c + d);
end.
2)
var
a, b, c, d, p: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
p := d * 100 + c * 10 + b;
writeln('Наоборот: ', p);
end.
3)
var
a, b, c, d, e: integer;
begin
readln(a);
e := a div 1000; { тысячи }
b := (a div 100) mod 10; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма: ', e + b + c + d);
writeln('Произведение: ', e * b * c * d);
end.
Ответ:
1 бит
Объяснение:
Количество пикселей
64*64=4096
Цвет 512байт/4096=4096 бит/4096= 1бит
Программа на языке программирования Pascal:
var
x, y: real;
begin
read(x, y);
if (y > sqr(x)-2) and ((y < x) or (y < -x)) then
writeln('YES')
else
writeln('NO')
end.
def f():
new_list = list(map(int, input('Введите числа через пробел: ').split(' ')))
return [x for x in new_list if not (x < 0 and x % 2 == 0)]
print(f())