Program funct;
var e, x, y, z, expres : real;
function entN(): real;
begin
write (' e = '); readln (e);
write (' x = '); readln (x);
write (' y = '); readln (y);
end;
entN();
expres := ((3 * y) ** 0.5) + x;
if expres > 14 then
z := e ** (3 * x * y);
if expres < 14 then
z := x + (3 * y)
else
z := x * 0.5;
writeln(' Z = ', z);
end.
Блок-схему легко составить глядя на код программы)
Удачи)
Program funct;
var e, x, y, z, expres : real;
function entN(): real;
begin
write (' e = '); readln (e);
write (' x = '); readln (x);
write (' y = '); readln (y);
end;
begin
entN();
expres := ((3 * y) ** 0.5) + x;
if expres > 14 then
z := e ** (3 * x * y);
if expres < 14 then
z := x + (3 * y)
else
z := x * 0.5;
writeln(' Z = ', z);
end.
Блок-схему легко составить глядя на код программы)
Удачи)