Question

Введите наибольшее из данных чисел (программа должна вывести ровно одно целое число). Free Pascal 2.4.4

Answer 1

Function max(a,b : Integer) : Integer;
Begin
  If a>=b then Max:=a else Max:=b;
end;
Var x,y : Integer;
Begin
  Readln(x,y);
  Writeln(Max(x,y));
end.

Answer 2

Для нахождения наибольшего из данных чисел в Free Pascal 2.4.4, вы можете воспользоваться следующим кодом:

pascalCopy code
program LargestNumber;
var
  num1, num2, num3, max: integer;
begin
  writeln('Введите три числа: ');
  readln(num1, num2, num3);

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

  // Проверим, является ли num2 больше
  if num2 > max then
    max := num2;

  // Проверим, является ли num3 больше
  if num3 > max then
    max := num3;

  writeln('Наибольшее число: ', max);
end.

Скопируйте этот код в среду разработки Free Pascal 2.4.4 и выполните программу. Она запросит у вас ввести три числа, а затем выведет наибольшее из них.