Var a:real;
begin a:=2;
while a<2.8 do begin
a:=a+0.1;
writeln(a);
end;
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var n:=ReadInteger('n=');
n.Step(n).TakeWhile(x->x<=50).Println
end.
Для отчетов, статистики и можно по таблицам понять где что находится .
===== PascalABC.NET =====
begin
var N := ArrRandom(18, -199, 199); // случайные числа
Println('Массив N');
N.Println;
Println('Максимальное значение', N.Max);
var Y := N.Where(p -> Abs(p).InRange(10, 99)).ToArray;
Println('Массив Y');
Y.Println;
Println('Максимальное значение', Y.Max);
end.
A B AvB b&(avb)
0 0 0 0
0 1 1 1
1 0 1 0
1 1 1 1