1)Даны три вещественных числа.Не используя полный условный оператор,определить наибольшее из них.Так?program pr1;var a,b,c:real;beginwrite('введите а');read(a);write('введите b');read(b);write('введите с');read(c);if((b>a) and (a>c)) then write('true') else write('false');read;end.

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

Программа не является правильным решением задачи. Для определения наибольшего из трех вещественных чисел нужно сравнить их все между собой. В вашем коде вы сравниваете только два числа (a и b), не учитывая третье число c.

Правильное решение без использования полного условного оператора будет выглядеть примерно так:

program pr1;
var a,b,c,max:real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
max := a;
if b > max then max := b;
if c > max then max := c;
writeln('Наибольшее число: ', max);
end.

В этой программе мы сначала присваиваем переменной max значение первого числа a, а затем последовательно сравниваем его с числами b и c, чтобы найти наибольшее из трех чисел.