1. город а находится в х милях от лондона. напишите про- грамму, которая вычислит расстояние между этими в километрах (5 миль равны 8 километрам). 2. определите объем прямоугольного параллелепипеда по его сторонам. 3. скорость передачи данных по локальной сети запрашивается у пользователя и измеряется в битах в секунду. ученик качал игру т минут (время запрашивается у пользователя). рассчи- тайте размер файла (в гбайтах), который скачал ученик и сколько денег придётся заплатить ему за трафик, если первый гбайт не оплачивается, а всё то, что сверху- по у рублей за гбайт (запраивается у пользователя).
// Внимание! Если программа не работает, обновите версию!
begin
var N:=ArrRandom(50,-111,348); N.Println;
Writeln('Произведение элементов, кратных 5, равно ',
N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b));
if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then
Writeln('Нечетных элементов больше')
else Writeln('Четных элементов больше')
end.
Пример
151 129 60 55 140 -61 180 221 -7 1 -6 118 80 215 -109 176 82 265 209 234 36 276 71 147 268 138 288 300 37 270 290 79 -88 183 197 -13 23 222 -106 137 76 180 240 287 -55 -7 48 111 222 -82
Произведение элементов, кратных 5, равно -21155254513747200000000000000
Четных элементов больше
// Внимание! Если программа не работает, обновите версию!
begin
var N:=ArrRandom(50,-111,348); N.Println;
Writeln('Произведение элементов, кратных 5, равно ',
N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b));
if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then
Writeln('Нечетных элементов больше')
else Writeln('Четных элементов больше')
end.
Пример
151 129 60 55 140 -61 180 221 -7 1 -6 118 80 215 -109 176 82 265 209 234 36 276 71 147 268 138 288 300 37 270 290 79 -88 183 197 -13 23 222 -106 137 76 180 240 287 -55 -7 48 111 222 -82
Произведение элементов, кратных 5, равно -21155254513747200000000000000
Четных элементов больше