<span>Леона́рд Э́йлер — швейцарский, немецкий и
российский математик и механик,
внёсший фундаментальный вклад в развитие этих наук (а также физики, астрономии и
ряда прикладных наук)</span>
<span>10 var a,b,c: integer; </span>
<span>20 p,s: real; </span>
<span>30 begin </span>
<span>40 writeln('Введите длины сторон треугольника (a,b,c)'); </span>
<span>50 readln(a,b,c); </span>
<span>60 if (a+b>c) then </span>
<span>70 begin </span>
<span>80 p:=(a+b+c)/2; </span>
<span>90 s:=sqrt(p*(p-a)*(p-b)*(p-c)); </span>
<span>100 writeln('Да, треугольник с такими сторонами существует.'); </span>
<span>110 writeln('S = ',s:0:3); </span>
<span>120 end </span>
<span>130 else </span>
<span>140 writeln('Треугольник с такими сторонами не существует.'); </span>
<span>150 end.</span>
....................................................
Var
b: integer;
function y(x: integer): real;
begin
y := exp(6*ln(3*x)) - SQR(6*x) - 7;
end;
begin
readln(b);
writeln(y(b));
<span>end.</span>
Mod это остаток от деления
25 mod 2 = 1