Тут подобных вопросов десяток был уже.
<span>объём_памяти = длина_изображения * ширина_изображения * глубина_цвета </span>
<span>Отсюда глубина цвета в байтах = объём/площадь или 256к*1024/(1024*512)=0,5 </span>
<span>в битах это 8*0,5=4 на каждый пиксель </span>
<span>ими можно закодировать 2^4=16 цветов </span>
<span>первые 1024 взялись из числа байт в килобайте </span>
Если по правилам, то 1 тб=1024 гб
1024:4,7=217,8 или по другому 218 дисков.
Program
Title;
Var i, A, B
:Integer;
Begin
WriteLn('Введите первое число');
ReadLn(A);
WriteLn('Введите второе число');
ReadLn(B);
If a>b
then writeln(a+b) else writeln(a*b)
Writeln('Задача решена')
End.