<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var p:=1;
for var i:=2 to ReadInteger('n=') do p*=i;
Writeln(p)
end.
<u>Пример</u>
n= 5
120
Шифровка в двоичную или каким-то конкретным методом(Хафман..)?
80 бит - 10 бит = 70 бит
1024 байт + 10 байт = 1034 байт
1024 байт - 128 байт = 896 байт
Var sum:real;
begin
for var i:=1 to 10 do sum:=sum+cos(i);
print ('s =', sum);
end.
Дано: растр 1024*768 N=16777216
Найти: I - объем
Решение: N=
, где i- глубина цвета, N -палитра
16777216=
, i=24 бит
I=1024*768*24 бит=18874368 бит=2359296 байт=2304Кб=
2,25Мб