СДЕЛАЙТЕ ПЖЛ В pascal!!!!!!!!!!!!!!
Вывести на экран значения функции y=b min{a,b max(a^2,x)} из промежутка [a,b]
Ответы
Ответ дал:
0
Примерный код:
program Project1;
var a,b, x:integer;
function max(a,b:integer):integer;
begin
if a>b then
result:=a
else
result:=b
end;
function min(a,b:integer):integer;
begin
if a<b then
result:=a
else
result:=b
end;
begin
readln(a, b);
for x:=a to b do
writeln(b * min(a,b * max(a*a, x)));
readln;
end.
Ещё варианты:
writeln(b + min(a,b + max(a*a, x)));
writeln(b - min(a,b - max(a*a, x)));
writeln(b div min(a,b div max(a*a, x)));
program Project1;
var a,b, x:integer;
function max(a,b:integer):integer;
begin
if a>b then
result:=a
else
result:=b
end;
function min(a,b:integer):integer;
begin
if a<b then
result:=a
else
result:=b
end;
begin
readln(a, b);
for x:=a to b do
writeln(b * min(a,b * max(a*a, x)));
readln;
end.
Ещё варианты:
writeln(b + min(a,b + max(a*a, x)));
writeln(b - min(a,b - max(a*a, x)));
writeln(b div min(a,b div max(a*a, x)));
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад