Program mili;
const a=1.603; b='км'; с='мили';
var k:integer; m:real;
begin
writeln(b:5,c:7); writeln;
for k:=l to 10 do
begin
m:=k/a; writeln(k:5,m:6:3)
end
end.
1) 100100000000
2) 1001110001001
Это решение приведенногг каадратного уравнения:х^2+px+ q=0
6 свободных килобайт - это 6*1024 байта = 6144 байта.
из трёх предложенных файлов записать удастся только файл размером 6100 байт.