Определите, является утверждение ЛОЖНЫМ ИЛИ Истинным Sketch Up
полнофункциональная
профессиональная
программная система для
работы с трёхмерной графикой

В Sketch Up используется
Высококачественная система
визуализации для создания
сложных кинематографических
моделей и моделей для игр

Разработанные модели в Sketon
Up можно распечатать на 3D-
принтере

SketchUp - простейшее
приложение для
моделирования и модификации
трехмерных объектов и сцен

Sketch Up можно использовать
для эскизного моделирования в
архитектуре​

​ю​

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<v2 then 
  begin
     writeln("заяц чемпион");
  end
  else
  begin
    writeln("победила дружба);
  end;
end;

Цикл со счётчиком"

В начале присваивает заданной переменной (переменная-счётчик) начальное число. Переменной-счётчиком может быть любая переменная типа integer, затем в зависимости от направления прибавляет (to) или убавляет (downto) счётчик на единицу. Цикл начинает повторение пока счётчик будет меньше или равен второму числу. Когда счётчик стал больше второго числа, цикл выполняет строки команд до конца, но уже не начинает повторять из снова.

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

Запись

for ПеременнаяСчётчик := Число Направление Второечисло do

begin

Строки с командами, которые должен повторять цикл;

end;

Пример

Программа, которая выводит числа от 5 до 10 и в конце пишет "Конец"

program raf105;

var i: integer;

begin

for i:=5 to 10 do

begin

writeln(i);

end;

writeln('Конец');

end.