Var
n:longint;
s:string;
k:integer;
begin
Read(n);
Str(n,s); k:=Length(s);
Writeln(Ord(s[k-1])+Ord(s[k-4])-2*Ord('0'))
end.
Var i,b:integer;
begin
for i:=1 to 12 do
begin
writeln('таблица умножения числа',i);
for b:=1 to 12 do
writeln(i*b);
end;
end.
могу только так =)
Дано:
N = 33 символов
k = 5 * 20 * 60 = 6000 символов
По формуле N=2^i вычисляем i и получаем, что i приблизительно равно 5
Теперь зная i используем формулу I = i * k и получаем =>
I = 5 * 6000
I = 30 000
Теперь переводим биты в байты => 30 000 / 8 = 3750 Байт
Ответ: 3750 Байт
На один пиксель - log2 16777216 = 24 bit а это равно 3 байта. Дальше : 1024*768 = 786432 пиксель; 786432 * 3 = 2359296 байт, а это равно 2,25 Мбайт.