Ответ:
Опишите подробнее!
На каком языке должна быть программа?
Что она должна делать?
Объяснение:
Var x: integer;
begin
writeln('Введите число.');
Readln (x);
if x < 0 then
writeln (x*(-1))
else
writeln (2*x);
end.
Program naimen;
Var A, B: integer;
begin
Write ('Введите число А=');
Read (A);
Write ('Введите число B=');
Read (B);
If A<B then
Write ('Наименьшее число А')
else Write ('Наименьшее число В');
end.
Я так поняла: это 2 числа в двоичной системе счисления,которых необходимо перемножить.