Program tocka;
var a,b,c:real;
begin
writeln('введите две точки');
readln(a,b);
if (abs(a)<abs(b)) then
writeln('ближе точка ', a);
if (abs(a)>abs(b)) then
writeln('ближе точка ', b);
if (abs(a)=abs(b)) then
writeln('они равноудалены ');
end.<span>
</span>
1) 192 : 6 =32 (страниц с картинками)
2) 32 * 5 =160 (страниц с текстом)
3) 160 * 1024 *8 = 5*2^5 * 2^(10) *2^3 = 5*2^(18) бит= 2*2^5 Кбайт=
=160 Кбайт (текст)
4) 10400 Кбайт - 160 Кбайт =10240 Кбайт (картинки)
5) 10240 *2^(13) : (1280*512) бит = 5*2^(11)*2^(13) : (5*2^8 *2^9) бит=
= 2^(24) ^2^(17) = 2^7 =128 цветов в палитре
Решение в лоб :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.