1)128000 переводим в байты (128000 / 8 = 16000)
16000 переводим в килобайты ( 16000 / 1024 = 15,625)
500килобайт делим на 15,625 получаем 32секунды.
2)512000 переводим в байты (512000 / 8 = 64000)
64000 переводим в килобайты ( 64000 / 1024 = 62,5 )
62,5 умножаем на 46секунд, получаем 2875
3)128000 переводим в байты (128000 / 8 = 16000)
16000 переводим в килобайты (16000 / 1024 = 15,625)
1минуту 20сек переводим в секунды (60+20=80)
15,625 килобайт умножаем на 80секунд, получаем 1250килобайт
Пример на продукте - бананы
program v1;
var m,n,sum,t:integer;
st1:string[10];
begin
sum:=0; t:=0;
writeln('Здравствуйте');
writeln('Банан красного цвета стоит 2500, банан синего цвета стоит 3000, банан черного цвета стоит 3700');
writeln('Сколько купите бананов '); readln(n);
writeln('Введите цвет бананов '); readln(st1);
if (st1='Красного') or (st1='красного') or (st1='Красный') or (st1='красный') then sum:=3000*n;
if (st1='Синего') or (st1='синего') or (st1='Синий') or (st1='синий') or (st1='Синей') or (st1='синей') then sum:=2500*n;
if (st1='Черного') or (st1='черного') or (st1='Чёрного') or (st1='чёрного') or (st1='Черный') or (st1='черный') or (st1='чёрный') or (st1='Чёрный') then sum:=3700*n;
writeln('Сумма покупки ', sum);
writeln('Введите сумму'); readln(m);
t:=m-sum;
writeln('Возьмите сдачу ',t);
writeln('Всего доброго, приходите еще');
end.
При а=5 значение переменной а равно "50":
ввод а -- а = 5
а>5? -- нет, поскольку а = 5!
выполняем строку "иначе": а * 10 = 5 * 10 = 50
При а=18 значение переменной а равно "38":
ввод а -- а = 18
а>5? -- да
выполняем строку "то": а + 20 = 18 + 20 = 38