program n1;
var x,y:real;
begin
writeln('Введите x');
read(x);
if x>=2 then y:=2*x+3 else
y:=(x+1)/(x-2);
writeln('Значение функции равно ',y);
end.
Е обозначает число 10
68,38456
150,56
<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