Заданная уравнением прямая всегда будет гипотенузой прямоугольного треугольника, а его прямой угол всегда будет лежать в точке пересечения осей координат. Таким образом, размещение гипотенузы всегда будет определять четверть, в которой находится треугольник. Гипотенуза пересекает ось Х в точке с координатами (х1; 0), а ось Y - в точке с координатами (0;y2). Найдем эти координаты, считая коэффициенты a и b в уравнении прямой заданными. Теперь можно определить номера четвертей n, в которых располагается гипотенуза.
var a, b: integer; f: Text;
begin Assign(f, 'input.txt'); Reset(f); Readln(f, a, b); Close(f); Assign(f, 'output.txt'); Rewrite(f); if a < 0 then if b < 0 then Writeln(f, '3') else Writeln(f, '1') else if b < 0 then Writeln(f, '4') else Writeln(f, '2'); Close(f) end.
var a: array[1..m, 1..n] of integer; i, j: integer;
begin writeln('Введите через пробел ', m, ' чисел'); for i := 1 to m do begin Read(a[i, 1]); for j := 2 to n do a[i, j] := a[i, 1] end; Writeln('Сформированный массив'); for i := 1 to m do begin for j := 1 to n do Write(a[i, j]:5); Writeln end end.
12288 бит = 1536 Байт = 1.5 Кбайт
ответ: 1.5 Кбайт