1 Нарисовать круг
2 Нарисовать круг поменьше
3 Найти центр круга
4 На одинаковом расстоянии от круга слева и справа нарисовать маленькие кружочки
5 Залить всё, кроме маленьких кружочков
Ответ:
460 байт= 3680 бит
Объяснение:
1 Байт равен 8 битам
Просто умножь 460 на 6 и получишь 3680.
128 возможных вариантов.
Воспользуемся формулой N=2^i
i=7бит
PRINT "Введите r:"
INPUT r
PRINT "Введите h:"
INPUT h
pi=3.14159
v1=pi*r*r*h
v2=1/3*pi*r*r*h
PRINT "Объем цилиндра v1:"
PRINT v1
PRINT "Объем конуса v2:"
<span>PRINT v2</span>
Var
x, y: real;
begin
write('x = ');
readln(x);
if (x <= 2) then
y := sqr(x) + 4 * x + 5
else
y := 1 / (sqr(x) + 4 * x + 5);
writeln('F(x) = ', y);
end.