При регулярных выражений: 1. написать программу, которая проверяет, является ли введенная с клавиатуры строка двоичным числом. 2. написать программу, которая проверяет, является ли введенная с клавиатуры строка дробным числом. 3. дана строка. написать программу, которая находит в строке и выводит на экран только двузначные числа.

258

440

Посмотреть ответы 2

Ответы на вопрос:

Nastenkapu

Информатика

4,7(30 оценок)

// 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

sasharuf2000

Информатика

4,6(71 оценок)

//pascalabc.net 3.2 сборка 1318 //вариант по формуле бине var n,fibn: real; i: integer; begin readln(n); if n< =0 then writeln('не существует чисел фиббоначи меньше 0') else begin i: =0; while fibn< n do begin fibn: =(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5); inc(i); end; writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1); end; end. //в лоб var sum,n,buf,fib0,fib1: integer; function fibb(fib0,fib1: integer): integer; begin result: =fib0+fib1; end; begin fib0: =0; fib1: =1; readln(n); if n< =0 then writeln('не существует чисел фиббоначи меньше 0') else begin if fibb(fib0,fib1)> =n then sum: =0 else begin while fibb(fib0,fib1)< n do begin buf: =fib1; fib1: =fibb(fib0,fib1); fib0: =buf; end; sum: =fibb(fib1,fibb(fib0,; end; writeln(sum); end; end. пример ввода: 12 пример вывода: 20