Регистрация
LionRed225
15.04.2023 18:51
Информатика
Есть ответ 👍

подготовить ответ к зачету на вопрос "Базы данных. Назначение и основные функции." по предмету Информационные технологии

274
464
Посмотреть ответы 1

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

nastea030
nastea030
4,6(65 оценок)
// pascalabc.net 3.0, сборка 1128 uses   system.text.regularexpressions;   begin   var s: ='        - 32      / - 21  ';   s: =regex.replace(s,'\s','');   var a: =regex.matches(s,'(-{0,1}\d+)|[\+\-\*/]');   var n: =a.count;   var x,y: integer;   var c: char;   case n of   3: begin       x: =strtoint(a[0].tostring); y: =strtoint(a[2].tostring);       c: =a[1].tostring[1]       end;   2: begin       x: =strtoint(a[0].tostring); var s1: =a[1].tostring;       c: =s1[1]; s1[1]: ='0'; y: =strtoint(s1)       end;   else       begin writeln('недопустимое выражение'); exit end   end;   writeformat('{0} {1} {2} = ',x,c,y);   case c of   '+': writeln(x+y);   '-': writeln(x-y);   '*': writeln(x*y);   '/': writeln(x/y)   end end. тестовое решение: -32 / -21 = 1.52380952380952 // pascalabc.net 3.0, сборка 1128 begin   var s: ='4km-549_ffb)5)6';   var t: =s.where(x-> x in ['0'..'9']).joinintostring('');   var n: int64;   if trystrtoint64(t,n) then writeln(2*n)   else writeln('не удалось выделить число') end. тестовое решение: 909912

Популярно: Информатика