// PascalABC.NET 3.2, сборка 1431 от 28.04.2017 // Внимание! Если программа не работает, обновите версию!
begin (var s,var p):=(int64(0),BigInteger(1)); foreach var x in ReadSeqIntegerWhile(k->k<>0) do if x>0 then s+=x else p*=x; Writeln('S=',s,', П=',p) end.
Потому что соединение не идеально, оно прерывается, некоторые данные по пути теряются. Допустим, я хочу передать файл по интернету. Если файл небольшой, то велика вероятность, что он не пострадает. В противном случае можно потратить много времени на передачу части файла, после чего данные передадутся с ошибкой, которую мы обнаружим только после передачи всего файла. Передавая информацию пакетами же можно этого избежать, так как любая потеря данных будет сразу видна по плохому пакету. После этого можно эту ошибку сразу и обработать и, допустим запросить повтор предыдущего пакета или попытаться починить пакет, прибывший с ошибкой.
Рассмотрим выражение X<5. Оно истинно для всех ответов Рассмотрим выражение X<3. Оно истинно для 1, 2 и ложно для 3, 4 Рассмотрим первую импликацию: две истины дают истину, значит для ответов 1,2 вторую импликацию (после или) можно не рассматривать, поскольку первая часть истинна. Для вариантов 3,4 рассмотрим вторую импликацию. Выражения X<2 и X<1 для вариантов 3,4 дают ложь. Импликация, где оба аргумента дают ложь, истинна. Получается, что для ответов 3,4 истинна вторая импликация, а значит значение первой несущественно (для оператора или).
отсюда следует, что выражение "((X < 5)→(X < 3)) или ((X < 2)→(X < 1))" истинно при всех перечисленных значениях х: 1, 2, 3, 4
// Внимание! Если программа не работает, обновите версию!
begin
(var s,var p):=(int64(0),BigInteger(1));
foreach var x in ReadSeqIntegerWhile(k->k<>0) do
if x>0 then s+=x
else p*=x;
Writeln('S=',s,', П=',p)
end.
Пример
24 -15 -42 18 35 -14 7 0 12 -206 138 -232 0
S=84, П=-8820
Замечание: числа 12 -206 138 -232 0 после нуля введены намерено, чтобы показать, что отсечение приема данных происходит по первому нулю.