Question

Даны 4 числа, найти наибольшее (Паскаль)

Answer 1

program vld;

var

 a,b,c,d:integer;

function max(a,b:integer):integer;

begin

if a > b then max:=a

else max:=b;

end;

begin

 write('Введите первое число:');

 readln(a);

 write('Введите второе число:');

 readln(b);

 write('Введите третье число:');

 readln(c);

 write('Введите четвертое:');

 readln(d);

 writeln('Наибольшее из этих чисел имеет значение: ',max(max(a,b),max(c,d)));

end.

Answer 2

Вот пример кода на языке Паскаль (Pascal), который находит наибольшее из четырех чисел:

pascalCopy code
program FindMax;
var
  a, b, c, d, max: integer;
begin
  writeln('Введите четыре числа:');
  readln(a, b, c, d);

  max := a;  // Пусть первое число будет наибольшим

  // Сравниваем остальные числа с текущим максимальным
  if b > max then
    max := b;
  if c > max then
    max := c;
  if d > max then
    max := d;

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

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