Информатика

Получить максимальное число из трех целых чисел. Даны целые числа X, Y, Z. Вычислить MAX(X+Y+Z, X*Y*Z). Вычислить MIN(X+Y+Z, X*Y*Z). ПОМОГИТЕ!,у меня постоянно выдает ошибку в паскале


<< Предыдущий вопрос Следующий вопрос >>

Var
x, y, z, m, n, min, max:integer;
begin
readln(x,y,z);
m:=x+y+z;
n:=x*y*z;
if m>n then begin
max:=m;
min:=n;
end else begin
max:=n;
min:=m;
end;
writeln('Max(',m,',',n,')=',max);
writeln('Min(',m,',',n,')=',min);
end.

Загрузить файл
Сомневаешься в ответе?

Если сомневаешься в правильности ответа или его просто нет, то попробуй воспользоваться поиском на сайте и найти похожие вопросы по предмету Информатика либо задай свой вопрос и получи ответ в течении нескольких минут.


Смотреть другие ответы