Var a,b,c:integer;
s:real;
begin
write('Введите двузначное число: ');
readln(a);
b:= a div 10;
c:= a mod 10;
s:=(b+c)/2;
writeln('Среднее арифметическое цифр числа: ',s);
readln;
end.
512 Кбайт = 512*1024 байт = 512*1024*8 бит
При палитре из 8 цветов для хранения одного пикселя требуется log(2)8 = 3 бита
Количество страниц = 512*1024*8 / (640*480*3) ≈ 4
Бред какой-то. Числа нельзя сравнить, не используя оператор if.
I=K*i
i=2048:256=8 бит 1 символ
символов в алфавите