Даны Z,X и Y. Вычислить R=max(x+y,z,y+z), если x>y. В противном случае R=x+y+z Опции

[9milesz]

Даны Z,X и Y. Вычислить R=max(x+y,z,y+z), если x>y. В противном случае R=x+y+z

не могу решить, прошу помощи

[Федосеев Павел]

Ну вот попытки и приводи.

[9milesz]

Ну вот попытки и приводи.

var
z,x,y,r,max:real;
begin
writeln('Vvedite X');
readln(x);
writeln('Vvedite Y');
readln(y);
writeln('Vvedite Z');
readln(z);
if (x>y)
then
begin
if x+y>y+z and x+y>z then writeln('MAX=x+y',x+y);
if y+z>x+y and y+z>z then writeln('MAX=y+z',y+z);
if z>x+y and z>y+z then writeln('MAX=Z',z);
if x+y=y+z=z then writeln('MAX="="',z);
end.
else
r:=x+y+z;
writeln('R=',R);
end.

Я предполагаю, что здесь куча ошибок. Так же возможно, что я пошел вообще не тем путем. Задачу попросил сделать мой друг. Понятно, что надо бы ему самому разбираться, но что поделать, друг есть друг. Сам я паскаль не видел с 9 класса и вполне возможно, что "очевидные" для Вас вещи окажутся для меня вовсе не такими. Поэтому прошу, по мере возможности, подсказать максимально "понятнее", если так можно выразится.



Сообщение отредактировано: 9milesz - 23.12.2014 4:45