Question

Помогите с Pascal, 10 класс. Найти максимальное число, среди четырёх. Задачу решить с помощью оператора IF. Числа вводятся с клавиатуры. Отдельную переменную для поиска максимального НЕ ВВОДИТЬ!

Answer 1

var a,b,c,d: integer;
begin
readln(a,b,c,d);
if (a>=b)and(a>=c)and(a>=d)
 then writeln('max = ',a)
 else if (b>=c)and(b>=d)
  then writeln('max = ',b)
  else if (c>=d) then writeln('max = ',c)
   else writeln('max = ',d);
end.

Пример:
2 8 3 7
max = 8

Answer 2

Я могу помочь вам с задачей по Pascal. Вот один из возможных способов решить ее с помощью оператора if:

program max_of_four;
var
  a, b, c, d, max: integer;
begin
  writeln('Введите четыре числа:');
  readln(a, b, c, d);
  max := a; // сначала предполагаем, что максимальное число - это a
  if b > max then // если b больше, чем текущий максимум, то
    max := b; // присваиваем max значение b
  if c > max then // аналогично для c
    max := c;
  if d > max then // и для d
    max := d;
  writeln('Максимальное число из четырех:', max); // выводим результат
end.

Вы можете найти больше информации о синтаксисе и примерах оператора if на этих сайтах: [Pascal - if then else statement](https://www.tutorialspoint.com/pascal/pascal_if_then_else_statement.htm), [Basic Pascal Tutorial/Chapter 3/IF](https://wiki.freepascal.org/IF), [Smart Pascal : If command](https://smartpascal.github.io/help/assets/if.htm), [If and Then](https://wiki.freepascal.org/If_and_Then). Надеюсь, это вам поможет.