Var
a, b: integer;

begin
readln(a, b);
if a * b < 0 then {если числа разных знаков}
    writeln(2 * a, ' ', 2 * b)
else if a > 0 then begin{иначе одного знака и больше нуля}
    if a > b then
      writeln((a + b) / 2, ' ', b)
    else
      writeln(a, ' ', (a + b) / 2)
end
else begin
    if a > b then
      writeln(a, ' ', -b)
    else
      writeln(-a, ' ', b)
end;
end.

0 0

4 года назад

Форма представления однотипных данных.

UmlaHelen [267]

Массив, таблица? скорее таблица, я думаю

0 0

4 года назад

Какую логическую операцию следует применить, чтобы оказалось верным равенство (0 ____ 1) XOR (1 AND 1) = 1?

fyupertu [50]

Если не ошибаюсь, то можно AND, OR

0 0

4 года назад

Помогите пожалуйста, нужно создать программу на языке pascal, на фото блок схема.

Evgen1992 [14]

Ааааапааааааапппааааааааааввавввввваааааа

0 0

1 год назад