Скорость передачи данных по некоторому каналу связи равна 256 000 бит/с.передача файла через это соединение заняла 1,5 мин.определите размер файла в килобайтах.
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-20,20).Select(i->i/10).ToArray; Write('Массив: '); a.Println; Writeln('Сумма элементов с нечетными номерами: ', a.Where((x,i)->i.IsEven).Sum); var i1:=a.FindIndex(x->x<0); var i2:=a.FindLastIndex(x->x<0); Write('Вторая искомая сумма: '); if i2=i1 then Writeln(0) else Writeln(a[i1+1:i2].Sum); Write('Сжатый массив: '); a:=a.Where(x->abs(x)>1).ToArray; a.Println; end.
Пример n= 10 Массив: 1.8 0.2 1 -2 0.1 0.4 -1 1.2 -1.4 0.6 Сумма элементов с нечетными номерами: 0.5 Вторая искомая сумма: 0.7 Сжатый массив: 1.8 -2 1.2 -1.4
Program abc321; var a, b, c, d, e: integer; begin write('Введите a:'); readln(a); write('Введите b:'); readln(b); write('Введите c:'); readln(c); write('Введите d:'); readln(d); e := a * b * c * d; if (e mod 2 = 0) then writeln('Произведение является четным числом.') else writeln('Произведение является нечетным числом.') end.
Вот 2 задача:
Program abc123; var a, b, c: integer; begin write('Vvedite dvuznachnoe chislo: '); readln(a); b := a div 10; c := a mod 10; if ((b + c) mod 2 = 0) then a := a + 2 else a := a - 2; writeln('a := ', a); end.
потом нужно 90*256 000=23040000 бит
23040000:8192=2812,5