Ответы на вопрос:
// pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! 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.; end. пример 123.3 15 -11.7 +21 23.2 51 9 182 15 +21 51
Популярно: Информатика
-
voronkovid26.05.2022 07:28
-
лера212716.02.2023 03:58
-
sanfirovngmail22.03.2022 13:14
-
DevA77710.10.2020 10:05
-
totty118.04.2022 11:02
-
Фара132321.06.2020 08:46
-
ximik120930.04.2022 08:31
-
missmira2111.05.2020 01:58
-
Kotik21006.05.2021 01:21
-
lerailina3004029.05.2021 21:42