<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
if s<>s.MatchValue('[01]+') then Write('не ');
Writeln('двоичное число')
end.
<u>Пример</u>
010101111011
двоичное число
begin
var s:=ReadlnString;
if s<>s.MatchValue('[\+-]?\d+.\d+') then Write('не ');
Writeln('дробное число')
end.
<u>Пример</u>
12.54
дробное число
begin
var s:=ReadlnString;
s.Matches('\s([\+-]?\d{2})\s').Select(t->Trim(t.Value)).Println;
end.
<u>Пример</u>
123.3 15 -11.7 +21 23.2 51 9 182
15 +21 51
Материальная - машина и вселенная
Нематериальная - запись формулы
Смешанная - школа и армия
Например, так: по три напротив каждой стороны и два по противоположным углам.
Var
a, b, c, t: integer;
begin
readln(a, b, c);
if c > b then begin
t := b;
b := c;
c := t;
end;
if c > a then begin
t := a;
a := c;
c := t;
end;
writeln(a + b);
end.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50);
a.Println;
end.
<u>Пример</u>
n= 15
24 17 2 47 -32 20 -39 -36 3 -1 -44 35 40 -20 -35