Сколько времени в минутах затратит школьник на дорогу из школы до стадиона, если длина дороги s, скорость v. формула по которой решать: s=v*t эта программа в бейсик

clsreminput "введите расстояние до школы"; sinput "введите скорость ходьбы"; vt=s/vprint tend.

javascript:

var массив = []; for (let сч = 0; сч < 7; сч++) массив.push([]);

function случ(от, до) { return math.round(от - 0.5 + math.random() * (до - от + 1));   }

var учеников = случ(3, 13);

document.write("количество учеников - " + учеников + "< br /> рост в прямом порядке: < br /> ");

for (let сч = 0; сч < учеников; сч++) {

  массив[2][сч] = случ(20, 193);

  document.write((сч + 1) + "-го ученика: " + массив[2][сч] + "< br /> ");

}

var средний = массив[2].reduce(function(s, c) {   return s + c;   }, 0) / учеников, выше_среднего = 0;

document.write("средний рост: " + средний + "< br /> ");

массив[2].foreach(function (зн, ном) {

  if (зн > средний) {

    document.write("рост " + (ном + 1) + " ученика выше среднего.< br /> ");

    выше_среднего++;

  }

});

document.write("учеников выше среднего - " + выше_среднего + "< br /> рост в обратном порядке: < br /> ");

for (let сч = учеников - 1; сч > = 0; {

  document.write((сч + 1) + "-го ученика: " + массив[2][сч] + "< br /> ");

}

массив[6] = массив[2].reverse();

Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию!

begin

  try

    var vdata : = readlnstring('введите дату по образцу дд.мм.гг: ');

    if vdata = '' then exit;

    var s : = vdata.matchvalue('(\d\d\.){2}\d\d');

    if s = vdata then

    begin

      var d : = datetime.parse(s);

      $'день: {d.day}{newline}месяц: {d.month}{newline}год: {d.year}'.println

    end

    else

      'дата введена не по образцу'.println

  except

    'такой даты в календаре не существует'.println

  end

end.