Паскаль заданы целые числа x, y, z. вычислите значение выражения. m=((max(3x,yz-x,z+x)+6z)/ -5min(x,z);

252

380

Посмотреть ответы 2

Ответы на вопрос:

vika45584

Информатика

4,4(98 оценок)

Pascalabc.netvar 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< n then min: =m else min: =n end; var x,y,z: integer; m: real; begin clrscr; 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); readkey end. тестовое решение: введите x,y,z: 3 6 -2 -3.0000000000e-01