//PascalABC.Net var r,x,y:real; c:string; begin Write('Введите R: '); Read(r); Write('Введите координаты x и y: '); Read(x,y); if sqr(x)+sqr(y)=sqr(r) then c:='Точка лежит на окружности' else c:='Точка не лежит на окружности'; Writeln(c) end.
Тестовые решения: Введите R: 2 Введите координаты x и y: 0 2 Точка лежит на окружности
Введите R: 2 Введите координаты x и y: -1.5 0.7 Точка не лежит на окружности
Введите R: 2 Введите координаты x и y: 1 1 Точка не лежит на окружности
Введите R: 2 Введите координаты x и y: 3 0 Точка не лежит на окружности
объём изображения = кол-во пикселей умножить на глубину цвета (бит)
найдем глубину цвета
I=V/x*y= 320 кб/1024*512 = 320*2^13/2^19 = 320/2^6 = 320/64 = 5 бит
по формуле кол-во цветов равно 2 в степени кол-ва бит на 1 пиксель (глубина цвета), а она у нас = 5, значит кол-во цветов = 2^5 = 32 цвета
Объяснение: