Question

Два зайца поспорили, кто из них больше съест морковок за один присест. Напечатайте рекорд первого зайца, если он больше рекорда второго, и оба значения, если это не так ( ЧЕРЕЗ ПАСКАЛЬ)

Answer 1

Ответ:

Объяснение:

var x,y:integer;

begin

 Write ('Рекорд первого= ');

 read (X);

 Write ('Рекорд второго= ');

 read (y);

 if x>y then

   writeln (x)

 else

   writeln (x,' ',y);

end.

Answer 2

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

pascalCopy code
program RabbitCarrots;

var
  firstRabbitRecord, secondRabbitRecord: integer;

begin
  write('Введите рекорд первого зайца: ');
  readln(firstRabbitRecord);

  write('Введите рекорд второго зайца: ');
  readln(secondRabbitRecord);

  if firstRabbitRecord > secondRabbitRecord then
    writeln('Рекорд первого зайца: ', firstRabbitRecord)
  else if secondRabbitRecord > firstRabbitRecord then
    writeln('Рекорд второго зайца: ', secondRabbitRecord)
  else
    writeln('Рекорды обоих зайцев равны: ', firstRabbitRecord);
end.

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

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