program FindMaxNumber; var a, b, c, maxNumber: Integer; begin // Примеры чисел a := 5; b := 1; c := 5; //a := 1; b := 2; c := 4; //a := 4; b := 4; c := 1; //a := 5; b := 5; c := 5; //a := 4; b := 2; c := 5; //a := 2; b := 5; c := 4; // Находим большее число if (a >= b) and (a >= c) then maxNumber := a else if (b >= a) and (b >= c) then maxNumber := b else maxNumber := c; // Вывод результата writeln('Самое большое число из ', a, ', ', b, ' и ', c, ' равно ', maxNumber); end.
Программа сначала сравнивает первое число с двумя другими, затем второе число с оставшимся числом, и если ни одно из них не больше, то результатом будет третье число.
Программа для нахождения большего числа из трех:
program FindMaxNumber;var
a, b, c, maxNumber: Integer;
begin
// Примеры чисел
a := 5; b := 1; c := 5;
//a := 1; b := 2; c := 4;
//a := 4; b := 4; c := 1;
//a := 5; b := 5; c := 5;
//a := 4; b := 2; c := 5;
//a := 2; b := 5; c := 4;
// Находим большее число
if (a >= b) and (a >= c) then
maxNumber := a
else if (b >= a) and (b >= c) then
maxNumber := b
else
maxNumber := c;
// Вывод результата
writeln('Самое большое число из ', a, ', ', b, ' и ', c, ' равно ', maxNumber);
end.
Программа сначала сравнивает первое число с двумя другими, затем второе число с оставшимся числом, и если ни одно из них не больше, то результатом будет третье число.