1. Переведите из одной единицы измерения в другую: 128 бит = байт 1612540 Кбайт = Гбайт 800 бит - id2038360120220419 от alexfuerte07 19.04.2022 00:40

Question

Информатика: 1.     Переведите из одной единицы измерения в другую: 128 бит =  байт 1612540 Кбайт = Гбайт 800 бит = байт 256 Мбайт = байт

alexfuerte07 · Accepted Answer

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

my @vector;
my $vector_length = 100;
my $random_dia = 30000;
push @vector, int(rand($random_dia)) for(0..$vector_length);
my ($start, $end) = (undef, undef);
my ($min, $max, $sum) = ( $random_dia, 0, 0,);
for my $position (0.. $#vector)){
if($vector[$position] > $max ){
   $max = $vector[$position];
   $end= $position;
}
if($vector[$position] < $min ){
   $min = $vector[$position];
   $start= $position;
}
}

for my $position ($min..$max){
$sum += $vector[$position];
}

say 'Result: \t '.$sum;

1. Переведите из одной единицы измерения в другую: 128 бит = байт 1612540 Кбайт = Гбайт 800 бит = байт 256 Мбайт = байт

MOGZ ответил