1) 18.10.1997 = 10010.1010.11111001101
2) 31.08.1997 = 11111.1000.<span>11111001101</span>
Program zuevyuliya;
var a,sum,b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for a:=a to b do
inc(sum,a);
writeln('sum=',sum);
<span>end.</span>
Данное решение основано на простом алгоритме деления данного числа на основание системы Ограничения для чисел (не более 9-тизначного числа)
Данное число и основание системы вводим в указанные ячейки
Недостаток программы: как убрать не значащие нули в ответе?