Question

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.

Answer 1

не используя полный, но используя неполный условный оператор

Answer 2

Почти верно, но в вашем коде вы проверяете только одно условие для определения наибольшего числа. Таким образом, ваш код покажет "true" только в случае, если число B больше числа A и число A больше числа C. Но это не обязательно означает, что число B является наибольшим числом из трех.

Для нахождения наибольшего числа среди трех, необходимо проверить все возможные комбинации чисел. Можно сделать это следующим образом:

pascalCopy code
program pr1;
var
  a, b, c: real;
begin
  write('Введите a: ');
  readln(a);
  write('Введите b: ');
  readln(b);
  write('Введите c: ');
  readln(c);

  if (a > b) and (a > c) then
    writeln('Наибольшее число: ', a)
  else if (b > a) and (b > c) then
    writeln('Наибольшее число: ', b)
  else
    writeln('Наибольшее число: ', c);

  readln;
end.

В этом коде мы используем вложенные условные операторы (if-else) для проверки всех возможных комбинаций чисел и выводим наибольшее из них.