<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
Class Task1{
public static void main(String[] args){
int sum = 0;
for(int c = 2; c<11; c++)
sum+=c*c;
System.out.println(sum);
}
}class Task2{
public static void main(String[] args) throws java.io.IOException{
int c = 0, n = 0;
while((c = System.in.read())>47 && c<58)
n=n*10+c-48;
float exp = 1;
for(c = 2; c<n+1; c++)
exp*=Math.sin(c);
System.out.println(exp);
}
}
В шестеричной. Поскольку в шестеричной полученную 6 заменяем на 10. Выходит:
50+10=100.
Эквивалент в десятичной:
30+6=36.
Var
n, m: longint;
begin
m:=0;
readln(n);
while n > 0 do
begin
m := m*10 + n mod 10;
n := n div 10;
end;
writeln(m);
end.
Пример:
13804
<span>40831</span>