Странно, что удалили мой ответ о нахождении в буфере обмена обоих фрагментов.
Из буфера обмена можно выбрать любой фрагмент, который даже не был скопирован или вырезан в данной программе.
Определение: Буфер обмена это<span> промежуточное хранилище данных, предназначенное для переноса или копирования между </span>приложениями<span> или частями одного приложения через операции </span>вырезать, копировать, вставить<span>.
Вот скриншот буфера обмена из ворда. Там находятся 2 строки, причем выбрать можно любую. Одну скопировал, вторую вырезал. Также там находится скриншот экрана, который тоже помещается в буфер обмена
</span>
<span>это новая строка. т.е</span>
Var
s,sd:string;
i,n,sum,d,err:integer;
begin
Writeln('Введите строку для суммирования');
Read(s);
sum:=0;
n:=Length(s);
if n>0 then begin
i:=2; sd:=s[1];
while i<=n do begin
if s[i]<>'+' then sd:=sd+s[i]
else begin
Val(sd,d,err);
sum:=sum+d;
sd:=''
end;
Inc(i);
end;
Val(sd,d,err);
sum:=sum+d
end;
Writeln('Сумма равна ',sum)
end.
<u><em>Тестовые примеры:</em></u>
Введите строку для суммирования
1+25+3
Сумма равна 29
Введите строку для суммирования
143+38+253+62
Сумма равна 496
И так. Для сохранения 64 шаров требуется в двоичной системе счисления 2^{6}=6426=64 , вот и вся формула.
Информационное сообщение несёт 6 Бит информации
Причём без разницы что за цифра, но если брать чистую информации то 4 Бита
15_{10} =1111_{2}1510=11112
как-то так вроде
Var a,b,c:integer; l:boolean;
begin
writeln('a, b, c:');
readln(a,b,c);
l:=(a=-b)or(a=-c)or(b=-c);
if l then writeln('Yes') else writeln('No');
end.
Пример:
<span>a, b, c:
5 8 -5
Yes</span>