<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var eps:=1e-3; // точность
var (b,r):=ReadReal2('Введите сторону треугольника и радиус:');
if Abs(r-b*Sqrt(3)/6)<=eps then Writeln('Окружность можно вписать')
else Writeln('Окружность вписать нельзя')
end.
600 * 1024 * 8 = 4915200 бит в файле
4915200 / (60 * 8) = 10240 Гц
Вроде так)
"оно не оканчивается на ноль". или, как вариант: "оно не делится и на десять"
После упрощения получим:
¬AvBvC
Лист Excel живой. Копируем элементы, подключаем клетки автоматически заполняется таблица.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Рассматривается матрица размеров 4х4, элементов будет 16. Пока все они равны нулю. При выполнении цикла получится следующее
2 1 1 1
1 0 0 0
1 0 0 0
1 0 0 0
Далее:
2 1 1 1
1 2 1 1
1 1 0 0
1 1 0 0
Далее:
2 1 1 1
1 2 1 1
1 1 2 1
1 1 1 0
Ну и последний шаг:
2 1 1 1
1 2 1 1
1 1 2 1
1 1 1 2
Считаей единички. Их 12. Ответ 12