// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
// Программа №1
begin
var mas:=ArrRandom(20,-99,99); mas.Println;
Writeln('сумму с четным индексом=',mas.Where((v,i)->i mod 2 =0).Sum);
end.
// Программа №2
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99); mas.Println;
Writeln('элементы < 5');
mas.Where(t->t<5).Println;
end.
//Программа №3
begin
var n:=readinteger('n=');
var mas:=ArrRandom(n,-99,99); mas.Println;
Write('Сумма=');
mas.Where(t->t mod 10 = 3).Sum.Println;
end.
(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
t = 5 c
v = 1024 бит/с
I - ?
Решение:
бит
5120.0 бит = 640.0 байт = 0.625 Кбайт
173.35=1.386.8
6363=6,515,712 или 795,375
568328=71,041
4,25=4,352
232=232