Question

Пожалуйста, решите, срочно!!!!!!!! Решите в Pascal:Введите по порядку возраст трёх людей в списке. Определите какой человек указан в списке раньше: самый старший или самый младший?

Answer 1

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

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadInteger3;
  if a>b then Writeln('Раньше указан старший')
  else Writeln('Раньше указан младший')
end.

Answer 2

Хорошо, вот пример кода на Pascal, который позволит определить, кто из трех людей является самым старшим и самым младшим по возрасту:

pascalCopy code
program AgeComparison;

var
  age1, age2, age3: Integer;
  oldest, youngest: String;

begin
  writeln('Введите возраст первого человека:');
  readln(age1);

  writeln('Введите возраст второго человека:');
  readln(age2);

  writeln('Введите возраст третьего человека:');
  readln(age3);

  if (age1 >= age2) and (age1 >= age3) then
    oldest := 'первый'
  else if (age2 >= age1) and (age2 >= age3) then
    oldest := 'второй'
  else
    oldest := 'третий';

  if (age1 <= age2) and (age1 <= age3) then
    youngest := 'первый'
  else if (age2 <= age1) and (age2 <= age3) then
    youngest := 'второй'
  else
    youngest := 'третий';

  writeln('Самый старший человек указан в списке раньше - это ', oldest, ' человек.');
  writeln('Самый младший человек указан в списке раньше - это ', youngest, ' человек.');

  readln;
end.

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