Question

Вывести на экран большее из четырёх чисел (в паскале)

Answer 1

Если самый прямолинейный способ, путём сравнения каждого числа с каждым, то вот

uses crt;
var a,b,c,d:integer;
Begin
Writeln(' Введите 4 числа');
Readln(a,b,c,d);
If (a>b) and (a>c) and (a>d) then
Writeln('Наибольшее число из данных ', a)
Else
If (b>a) and (b>c) and (b>d) tnen
Writeln('Наибольшее число из данных ', b)
Else
If (c>a) and (c>b) and (c>d) then
Writeln('Наибольшее число из данных ', c)
Else
Writeln('Наибольшее число из данных ', d);
End.

Answer 2

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

pascalCopy code
program FindLargestNumber;
var
  num1, num2, num3, num4, largest: Integer;
begin
  Write('Введите первое число: ');
  Readln(num1);
  
  Write('Введите второе число: ');
  Readln(num2);
  
  Write('Введите третье число: ');
  Readln(num3);
  
  Write('Введите четвертое число: ');
  Readln(num4);

  if (num1 >= num2) and (num1 >= num3) and (num1 >= num4) then
    largest := num1
  else if (num2 >= num1) and (num2 >= num3) and (num2 >= num4) then
    largest := num2
  else if (num3 >= num1) and (num3 >= num2) and (num3 >= num4) then
    largest := num3
  else
    largest := num4;
  
  Writeln('Наибольшее число: ', largest);
end.

Этот код сначала запрашивает у пользователя ввод четырех чисел, затем сравнивает их и находит наибольшее число. Наконец, оно выводится на экран.