Question

Решите задачу в Pascal. Направляемый файл с результатом должен иметь расширение pas. Условие Задачи: Два спринтера бежали дистанцию. Один прибежал за х времени, другой за y. Найти победителя соревнования (записать как программу)

Answer 1

Объяснение:

привет, программа на фото

Answer 2

Конечно, вот пример решения задачи на языке Pascal:

pascalCopy code
program SprinterCompetition;

var
  x, y: real;
  winner: string;

begin
  writeln('Введите время, за которое прибежал первый спринтер (x): ');
  readln(x);
  
  writeln('Введите время, за которое прибежал второй спринтер (y): ');
  readln(y);
  
  if x < y then
    winner := 'Первый спринтер'
  else if y < x then
    winner := 'Второй спринтер'
  else
    winner := 'Ничья';
  
  writeln('Победитель соревнования: ', winner);
end.

Вы можете сохранить этот код в файл с расширением ".pas", например, "SprinterCompetition.pas". После этого вы можете скомпилировать и запустить программу в среде разработки Pascal, чтобы увидеть победителя соревнования на основе введенных значений времени x и y.