begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p.IsEven and (p > 100))
.Min
.Println
end.
Осталось выяснить, сколько у ветра направлений. Если их 8 - стороны света + половинки меж ними - то на один отсчёт ветра нужны три бита информации, 2^3 = 8
И 160 измерений займут
160*3 = 480 бит
То средние значение от B3 до B8 поделим на 2
240\6=40 это ответ выполненный после твоей формулы
Лукас мне:3
40 Гбайт = 40 * 1024 * 1024 * 1024 * 8 бит = 343597383680 бит
700 Мбайт = 700 * 1024 * 1024 * 8 бит = 5872025600 бит
Кол-во = 343597383680 / 5872025600 шт = 58.51428571428571 шт ~= 59 шт (округляем в большую сторону так как кусками тут быть не может)
Var a,b,c:integer; x:char;
begin
repeat
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if (a+b>c)and(a+c>b)and(b+c>a)
then writeln('Стороны могут образовать треугольник')
else writeln('Стороны не могут образовать треугольник');
writeln('Желаете повторить? (Y/N)');
readln(x);
until x='N';
end.
Пример:
<span>a = 3
b = 5
c = 4
Стороны могут образовать треугольник
Желаете повторить? (Y/N)
Y
a = 8
b = 1
c = 5
Стороны не могут образовать треугольник
Желаете повторить? (Y/N)
<span>N</span>
</span>