Паскаль, второй номер пожалуйста

Приложения:

Ответы

Ответ дал: BobbyFresnel

===== PascalABC.NET =====

begin

var (x, y, z) := ReadReal3;

var U := Max(x, Max(y, z)) / (x + y - z);

Print(U)

end.

Приложения:

Andrew228krut: В этой задаче должно быть какое-то условие потому что от учителя услышал

BobbyFresnel: Мало ли, что сказал учитель? Запускайте, вводите любые данные, убеждайтесь что все работает и без "условий".

BobbyFresnel: Возможно, Вам надо написать программу на каком-то языке, в котором нет функции нахождения максимума, но об этом пишут в условии, а не после получения ответа "А нам не так сказали делать...". Мы тут догадываться не можем, что Вам сказал учитель и почему.

Ответ дал: gfhjkmgfhjkm20

Ответ:

var x,y,z,max,u:real;

begin

write ('x = ');

readln (x);

write ('y = ');

readln (y);

write ('z = ');

readln (z);

if x>y then max:=x else max:=y;

if z>max then max:=z;