<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function Res(a:integer;op:char;b:integer):integer;
begin
case op of
'+':Result:=a+b;
'-':Result:=a-b;
'*':Result:=a*b;
'/':Result:=a div b
end
end;
begin
var s:=ReadlnString('Вводите:');
var p:=s.Matches('(((\-)?\d+)|[\+\-\*\/])').ToArray;
if p.Count<>5 then Writeln('Ошибка!')
else begin
var op1:=p[1].Value[1];
var op2:=p[3].Value[1];
var a:=p[0].Value.ToInteger;
var b:=p[2].Value.ToInteger;
var c:=p[4].Value.ToInteger;
if (op1 in ['+','-']) and (op2 in ['*','/']) then
Writeln('='+Res(Res(b,op2,c),op1,a))
else Writeln('='+Res(Res(a,op1,b),op2,c))
end
end.
<u>Примеры</u>
Вводите: -4--3--2
=1
Вводите: 12*3+45
=81
Вводите: 45+12*3
=81
Вводите: -26/13--5
=3
Ответ:
2
Объяснение:
(x<3) и не(x<2) ===== (x<3) и (х≥2)
Ответ под цифрой 4. Изначально следует посчитать количество символов, включая пробелы, цифры и знаки препинания. Это значения K. Вес одного символа обозначается буквой i и равен 16 бит. И по формуле I=K*i узнаём:
32*16=512(бит). Следует так же обратить внимание на единицы измерения
Program n1;
const n=15;
var a: array[1..n] of integer;
i: integer;
begin
randomize;
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]<=3 then a[i]:=sqr(a[i])*a[i];
end;
writeln;
writeln('полученный массив:');
for i:=1 to n do write(a[i],' ');
end.
Орел - зрение.
Волк - обоняние
Летучая мышь - зрение.
Дельфин - слух
Крот - слух
