Прошу о помощи!!!!!!!!!!!!!!!НУжна программа по паскалю.Что бы решить эту...

Question

Прошу о помощи!!!!!!!!!!!!!!!НУжна программа по паскалю.Что бы решить эту задачу!!!!!!!!!!!!!!
Даны 3 вещественных числа. Используя только 2 неполных условных оператора, определить:
 максимальное значение заданных чисел
 минимальное значение заданных чисел

Comments

Одновременно?

Answer 1

//PascalABC.Net 3.2
begin
var a:=readarrreal ('Вводите: ', 3);
print('Макс.', a.max, '; Мин.', a.min);
end.

Comments

var a, b, c, min, max:real;
begin
readln(a,b,c);
max:=a;
min:=a;
if(b>c)and(b>a)then max:=b;
if(c>b)and(c>a)then max:=c;
if(bif(cwriteln('max,min');
end.

---

не могу понять где ошибка

---

А зачем Вы в операторе ветвления указываете 2 условия?

---

var a, b, c, min, max:real;
begin
readln(a,b,c);
max:=a;
min:=a;
if b>max then max:=b;
if c>max then max:=c;
if bif cwriteln('Макс: ', max);
writeln('Мин: ', min);
end.

---

если можно обойтись одним)))

---

А на выводе у Вас строка "max,min" - в этом и ошибка))

---

препод

---

Так в итоге, я помог?

---

спасибо большое

---

Было бы за что))