Var a, b:real;
begin
writeln('Введите a, b');
readln(a,b);
if a=b then writeln('Ответ: ',-b)
else if a>b then writeln('Ответ: ', a*b+1)
else writeln('Ответ: ', (a-5) /b);
end.
Я только мыслю, ничего не печатаю, ничего не говорю, а машина меня понимает, словно мой мозг - часть машины
Килобайт 1536
мегабайтах 1.5
Модем за секунду передает 2048 бит или 256 байт. Всего надо передать 4096*1024 байт. На это уйдет 4096*1024/256 = 16384 секунды
При использовании 64-символьного алфавита на 1 символ необходимо log(2)64=6 бит.
На весь учебник:
80*512*6 бит=80*512*6/8 байт = 10*512*6/1024 Кбайт = 30 Кбайт