680 Кб = 5570560 бит = 696320 байт = 0,664 Мб = 0,000648 Гб.
3520 байт = 28160 бит = 3,4375 Кб = 0,003357 Мб = 0,0000032783 Гб
5 гигабайт = 42949672960 бит = 5368709120 байт = 5242880 Кб = 5120 Мб = 0,0049 Тб = 0,0000047684 Пб
Объяснение:
1 - 680 Кб =
1) 680 * 1024 байт * 8 бит = 5570560 бит
2) 680 * 1024 байт = 696320 байт
3) 680 / 1024 = 0,664 Мб
4) 680 / 1024 = 0,000648 Гб
Дальше не делится.
2 - 3520 байт =
1) 3520 * 8 бит = 28160 бит
2) 3520 / 1024 = 3,4375 Кб
3) 3,4375 / 1024 = 0,003357 Мб
4) 0,003357 / 1024 = 0,0000032783 Гб
Дальше не делится.
3 - 5 гигабайт =
1) 5 * 1024 Мб = 5120 Мб
2) 5120 * 1024 Кб = 5242880 Кб
3) 5242880 * 1024 байт = 5368709120 байт
4) 5368709120 * 8 бит = 42949672960 бит
5) 5 Гб / 1024 = 0,0049 Тб
6) 0,0049 Тб / 1024 = 0,0000047684 Пб
Дальше не делится.
begin
var quantity := 0;
var amount := 0;
var A := readinteger();
var B := readinteger();
for var i := A to B do
begin
if (i mod 3 = 0) and (i mod 10 <> 0) then
begin
inc(amount, i);
inc(quantity);
end;
end;
writeln(amount / quantity:0:2);
end.
Объяснение:
begin // Начало программы
var quantity := 0; // Объявление переменной, хранящей количество элементов, подходящих под условие
var amount := 0; // Объявление переменной, хранящей сумму элементов, подходящих под условие
var A := readinteger(); // Считывание числа А с клавиатуры
var B := readinteger(); // Считывание числа В с клавиатуры
for var i := A to B do // Идём от А до В
begin // Начало цикла
if (i mod 3 = 0) and (i mod 10 <> 0) then // Если значение переменной i делится на 3 без остатка И значение переменной i не заканчивается на 0
begin // Начало условного оператора
inc(amount, i); // Прибавляем к переменной amount значение переменной i
inc(quantity); // Прибавляем к переменной quantity единицу
end; // Конец условного оператора
end; // Конец цикла
writeln(amount / quantity:0:2); // Вывод среднего арифметического с точностью до 2 знаков после запятой
end. // Конец программы
