Question

Даны три числа. Найти наибольшее из них, с учетом того, что некоторые из них могут быть равны. Pascal

Answer 1

// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

// Внимание! Если программа не работает, обновите версию!

begin

 ReadSeqReal(3).Max.Println

end.

Пример

7.23 4.1 7.23

7.23

Answer 2

В Pascal можно найти наибольшее из трех чисел с помощью следующего кода:

arduinoCopy code
program max_of_three_numbers;

var
  num1, num2, num3, max: integer;

begin
  writeln('Enter three numbers: ');
  readln(num1, num2, num3);

  max := num1; // Предполагаем, что num1 - наибольшее число

  if num2 > max then // Если num2 больше предполагаемого наибольшего числа, то оно становится новым максимумом
    max := num2;

  if num3 > max then // Аналогично для num3
    max := num3;

  writeln('The maximum number is: ', max);
end.

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