// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите массив', 10);
a.Where(t -> (abs(t) > 9) and (abs(t) < 100)).Println();
end.
Если быть совершенно точным, то условные операторы switch-case.
Отличаются от if тем, что if проверяет некое условие (ЛЮБОЕ условие), а блок switch-case сначала задает значение - switch (значение), а потом сравнивает его с условиями в case.
Следовательно, к примеру:
if (n == 5) ...
if (n == 2) ...
if (n == -3) ...
будет эквивалентно
switch (n) {
case 5:
...
break;
case 2:
...
break;
case -3:
...
break;
}
Учтите, что в switch-case ожидается использование break. Если не поставить break, case, который ниже текущего, тоже будет выполнен.
VAR
x, y, xmin, xmax, dx : Real;
BEGIN
Writeln('Табулирование функции.');
xmin := -3; xmax := 2; dx := 0.5; x := xmin;
WHILE x<=xmax DO
begin
y := abs(2-sqr(x))+1;
Writeln(x:6:3, y:6:3);
x := x+dx;
end {while};
Readln
END.
Нужно сравнить что было ДО редактирования с тем, что стало после редактирования. Если есть разница значит есть отличия.
4 мбайта = 4 * 1024 *1024 = 4194304 байт * 8 = 33554432 бит
65536 = 2 ^ 16 - для одной точки используется 16 бит
Из объема удалить информацию о цвете и тогда получим количество точек
33554432 бит / 16 = 2097152 точек