800 * 600 = 480000 пикселей, так как глубина цвета 24 , 480000 * 24 = 11520000 бит, переведём 1440000 байт/1024 = 1406.25 кбайт, так как 4 страницы , 1406 * 4 = 5625 кбайт
Var x,a,b,c:integer;
begin
writeln ('введи трехзначное число');
readln (x);
c:=x mod 10;
b:=x div 10 mod 10;
a:=x div 100 mod 10;
if a=с then writeln ('Число является перевертышем')
else writeln ('число не является перевертышем');
if (a=b) or (a=c) or (b=c) then writeln ('да')
else writeln ('нет');
end.
Var a: array[0..49] of Integer; sr:real;sum,i,n: integer;beginwriteln('Исходный массив');for i:=0 to 49 do begina[i]:=Random(300);write(a[i]:4);if a[i] mod 2 = 0 then begin sum:= sum + a[i]; n:= n +1; end;end;sr:= sum / n;writeln;writeln('Cреднее арифметическое значение четных ',sr);end.
32 = 2^5 значит один символ занимает 5 бит
3*25*80=6000 символов в книге
6000*5 = 30000 бит = 3750 байт информации в книге
Возможное решение одно:
- 2 бита на символ и 3 бита на символ
Это 4 символа в одном алфавите и 8 символов во втором алфавите