pascalabc.net
function f(u, t: real): real;
begin
result : = 0;
if u > 0 then
begin
if t > 0 then
result : = u * u + t * t
else if t < 0 then
result : = u - t;
end
else if u < 0 then
begin
if t > 0 then
result : = u + t
else if t < 0 then
result : = u + t * t
end;
end;
function z(a, b: real) : =
f(a, b) + f(a * a, b * b) + f(a * a - 1, b) +
f(a - b, b) + f(a * a + b * b, b * b - 1);
begin
println(z(2.5, -7.3));
println(z(-0.5, 4.2));
end.
объяснение:
pascalabc.net
begin
println(' 1');
var b : = arrrandom(15, -40, 20);
b.println;
var k : = readinteger('введите заменяющее число: ');
b.transform(p -> p.isodd and (p < 0) ? k : p);
b.println;
println(' 2');
var m : = arrrandom(13, -99, 99);
m.println;
var i : = m.findlastindex(p -> p.iseven);
if i = -1 then
println('в массиве нет четных элементов')
else
begin
m : = m[: i] + arr(100) + m[i: ];
m.println
end;
println(' 3');
var a : = readarrinteger('10 элементов массива а: ', 10);
var bb : = readarrinteger('10 элементов массива b: ', 10);
var c : = a.zip(bb, (p, q) -> p + q);
c.println
end.
Поделитесь своими знаниями, ответьте на вопрос: