Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Задача в паскале.
развивая предельную скорость своего движения жираф пробегает за x1 секунду y1 метров. Заяц пробегает за x2 секунд y2 метров. найдите скорость животных и сравните их. По результатам сравнения вывести сообщения "победила дружба", "жираф чемпион" , "заяц чемпион".
Программу тестировать 3 раза для получения результата: "победила дружба", "жираф чемпион" , "заяц чемпион".

Ответ оставил Гость

Var x1,y1,x2,y2,v1,v2:real;
begin
  writeln("введите количество метров пробегания жирафа");
  read(y1);
  writeln("введите, за сколько секунд он должен пробежать");
  read(x1);
  writeln("введите количество метров пробегания зайца");
  read(y2);
  writeln("введите, за сколько секунд он должен пробежать");
  read(x2);
  v1:=y1/x1;
  v2:=y2/x2;
  if v1>v2 then 
  begin
     writeln("жираф чемпион");
  end
  else if v1  begin
     writeln("заяц чемпион");
  end
  else
  begin
    writeln("победила дружба);
  end;
end;