1. выполните действия в двоичной системе счисления:
а) 10010 + 1 27 +1.25 +1 : 29 +1 : 20;
б) 1100 +1 : 23 +1 : 21;
в) 1001,1 : (1 24 +1 : 23 +1 22 +1 : 2');
г) 111,101 +1 : 23 + 1 : 2;
д) 1: 22 +1 : 21+1 : 20 + 10,001;
е) 120 + 11000111;
ж) 1.27 +1 23 – 1,1;
3) 1010111 - (1 : 25 +1 . 23 +1: 21).
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
if s<>s.MatchValue('[01]+') then Write('не ');
Writeln('двоичное число')
end.
Пример
010101111011
двоичное число
begin
var s:=ReadlnString;
if s<>s.MatchValue('[\+-]?\d+.\d+') then Write('не ');
Writeln('дробное число')
end.
Пример
12.54
дробное число
begin
var s:=ReadlnString;
s.Matches('\s([\+-]?\d{2})\s').Select(t->Trim(t.Value)).Println;
end.
Пример
123.3 15 -11.7 +21 23.2 51 9 182
15 +21 51