var
x,a, b: integer;
begin
readln (x);
a:= x div 10;
b:= x mod 10;
writeln ('сумма=', a+b);
writeln( ' произведение =', a*b);
end.
Моя папка - это хобби, школа, музыка, картинки, видеозаписи.
Это зависит от того, что ты напишешь в теле функции. В некоторых ЯП, типа ублюдочного Пасцала, она является встроенной и означает взятие дробной части числа.
Var a, b, c, x, y, z: real;
begin
read(a,b,c);
z := sqr(cos(b)) - c * sin(sqr(a) * a);
if z < 0
then
x := -exp(ln(-z) / 3) {т.к. в Pascal нет стандартного кубического корня, то приходится использовать искусственное возведение в степень}
else
x := exp(ln(z) / 3);
y := ln(abs(sin(a - b) / (sin(4 * c) / cos(4 * c))));
writeln('x = ', x, ', y = ', y);
<span>end.
--------------
var x, y, z: real;
begin
read(x, y);
if sqr(x) > abs(4 * x * y)
then
z := ln(abs(x + y));
if sqr(x) < abs(4 * x * y)
then
z := sin(1 /(x * y)) / cos(1 /(x * y));
if sqr(x) = abs(4 * x * y)
then
z := exp(x * y + sqrt(sin(x)));
writeln('y = ', sqr(sin(z)));
<span>end.</span></span>