Определить значение U по формуле: U=max(x,y.z)+min(x,y,z)
-------------------------------
x+y-z
Составить программу в паскале
Ответы
Ответ дал:
0
Program z1; Var x,y,z,max,min,u:integer;Begin write('Введите x = '); readln(x); write('Введите y = '); readln(y); write('Введите z = '); readln(z); if (x>y) then if (x>z) then max:=x else max:=z else if (y>z) then max:=y else max:=z; if (x<y) then if (x<z) then min:=x else min:=z else if (y<z) then min:=y else min:=z; u:=max+min; writeln('U = ',u)End.
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
9 лет назад