Паскаль Заданы целые числа x, y, z. Вычислите значение выражения. m=((max(3x,yz-x,z+x)+6z)/ -5min(x,z);
Паскаль
Заданы целые числа x, y, z. Вычислите значение выражения.
m=((max(3x,yz-x,z+x)+6z)/ -5min(x,z);
Гость
Ответ(ы) на вопрос:
ГостьPascalABC.Net
var
x,y,z:integer;
m:single;
begin
Write('Введите x,y,z: '); Read(x,y,z);
m:=(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));
Writeln(m)
end.
Тестовое решение:
Введите x,y,z: 3 6 -2
-0.3
Borland Pascal 7.01
uses Crt;
function max(m,n:integer):integer;
begin if m>n then max:=m else max:=n end;
function min(m,n:integer):integer;
begin if m
Не нашли ответ?
Похожие вопросы