<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqReal(3).Where(t -> t > 0).Sum.Println
end.
<h2>3.53 -6.23 12</h2><h2>15.53 </h2>
Нужно составить уравнения трех прямых, ограничивающих область (см. вложение). А затем можно писать программу. Считаем попаданием в область, если точка находится строго ВНУТРИ треугольника. Если надо учитывать и границы, неравенства будут нестрогими.
<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('Введите координаты х и у точки:');
if (y>-3) and (y<5*x/3+2) and (y<-5*x/3+2) then Writeln('попали')
else Writeln('не попали')
end.
Бит - наименьшая единица измерения информации
1байт = 8 бит
1Кбайт = 1024 байт
1 Мбайт = 1024 Кбайт
и т.д, Гигабайт, Терабайт, Йотабайт
1байт=8бит
1кб=1024байт
6*8192-64х=32х
96х=49152
х=512
Проверка:
49152-32768=32*512
32*512=16384
49152-32768=16384
х=512бит
либо х=64 байта