Если я правильно понял условие, то...
var a,b,c:integer;
integer;
begin
readln(a,b,c);
If (a+b<100) or (a+c<100) or (b+c<100) then
writeln(1)
else
writeln(0)
<span>end.</span>
Ответ находится во вложении
основное - скорость и точность
а дальше уже зависит от возможностей программы
например просмотр промежуточных результатов
выставление точности расчетов
задание алгоритма расчета любой сложности
быстрый перерасчет при изменении начальных данных
динамическое изменение результатов в зависимости от исменения условий
8 бит-1байт
делим 98304 на 8,получаем 12,288 кбайт
Сначала запишем выражение в виде степеней двойки:
2^16096 - 2^3210 + 2^1024 - 2^7 + 2
Далее последовательно запишем представление числа по действиям:
1) 2^16096 = (в позиции 16096)10000...0
2^3210 = (в позиции 3210)10000...0
При их разности получится:
(16095)111111...111(3210)000...0
2) Прибавляем 2^1024 и получается (16095)111111...111(3210)000...01(1024)0....0
3) (16095)111111...111(3210)000...01(1023)1....1(7)0000000
4) (16095)111111...111(3210)000...01(1023)1....1(7)0000010
Вычисляем кол-о 1: 16095 - 3210 + 1 + 1023 - 7 + 1 + 1 = 13904