Решение в лоб :D, только желательно запускай прогу отдельно в папке.
Program out;
var fo:text;
begin
assign(fo,'output.txt');
rewrite(fo);
Writeln(fo,'Program AplusB;');
Writeln(fo,'var A,B: Integer;');
Writeln(fo,'begin');
Writeln(fo,' Assign(input,''input.txt'');');
Writeln(fo,' Reset(input);');
Writeln(fo,' Assign(output,''output.txt'');');
Writeln(fo,' Read(A,B);');
Writeln(fo,' ReWrite(output);');
Writeln(fo,' WriteLn(A+B);');
Writeln(fo,' Close(input);');
Writeln(fo,' Close(output);');
Writeln(fo,'end.');
close(fo);
end.
1. Режим в котором глубина цвета 24 бита на пиксель называется True Color или истинный цвет.
2. Черно белое изображение занимает меньше места из представленных трех. Так как глубина цвета - 2 бита на пиксель. Третье изображение займет больше места на диске чем первые два. Причина - самая большая глубина цвета.
32*8/64=4 бита вес 1 символа, мощность алф. 2^4=16
Интернет книга письмо объявление тв справка словарь