Uses crt;
var a,b,c,input:integer;
begin
readln(input);
a := input div 10;
a := a div 10;
b := input div 10;
b:=b mod 10;
c := input mod 10;
if (a + b + c) > 10 then writeln('Больше 10') else writeln('Меньше 10');
end.
Код находится во вложении.
Систематизацией .........
Ответ:
1) =(СТЕПЕНЬ(TAN(3*M9);2)+M9)/(ABS(M9)+1)-M9
2) =(ABS(M9)+2)/(EXP(M9)+1)-СТЕПЕНЬ(TAN(2*M9);4)