===== PascalABC.NET =====
begin
// 1
var s := 1;
var i := 1;
repeat
s += i * i * i;
i += 2
until i > 13;
Println('Сумма кубов нечетных чисел от 1 до 13 равна', s);
// 2
var (sum, pr) := (0, 1);
for var j := -50 to 50 do
// если условие предполагает, что "кратны 5 и 8"
// на самом деле означает "кратны 5 ИЛИ 8", заменить
// в следующей строке and на or
if (j mod 5 = 0) and (j mod 8 = 0) then
begin
Print(j);
sum += j;
pr *= j
end;
Writeln;
Write('Сумма: ', sum, ', произведение: ', pr)
end.
Задача2 - пример явной глупости того, кто ее придумал. При симметрии интервала с положительными и отрицательными числами, отбираемыми по кратности, каждому отобранному положительному числу будет соответствовать такое же отрицательное, поэтому сумма всегда будет нулевой. Вычислять произведение также нет смысла, поскольку ноль кратен любому числу и он всегда будет одним из сомножителей, обнуляя результат.
1байт=8бит
32768байт=32768*8 бит=262144бит
262 144 бит/(4096 бит/с)=64с
64с*1024бит/с=65536бит-размер
65536бит=65536/8 бит=8192байт
2)
60 кбайт=60*1024 байт=61440 байт
1 байт=8 бит
61440 байт=61440*8 бит=491520бит
491520/4096=120с
491520/1024=480с
4080-120=360с=6минут
3)
2Кбайт=2*1024байт=2048 байт=16384 бит
16384/256=64 секунд
64*2048бит=131072 бит=16384 байт
4)
8Мбайт=8*1024к байт=8*1024*1024байт=8388608байт
8388608/100=83886,08 байт/с
83886,08 байт/с*25с=2097152 байт=2048Кбайт
5)
Файл размером 8 Кбайт передается через некоторое соединение за 64 секунды.Определите, за сколько секунд можно передать этот же файл через соединение,скорость которого на 1024 бит в секунду больше
8Кбайт=8192байт=65536 бит
65536бит/64с=1024 бит/с
1024 бит/с+1024 бит/с=2048 бит/с
65536 бит/(2048 бит/с)=32с