Задать вопрос
16 июля, 23:32

Дано число, если оно отрицательное, то поменять знак, в противном случае увеличить в 2 раза (паскаль 8 кл)

+3
Ответы (1)
  1. 16 июля, 23:42
    0
    Var x: integer;

    begin

    writeln ('Введите число.');

    Readln (x);

    if x < 0 then

    writeln (x * (-1))

    else

    writeln (2*x);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Дано число, если оно отрицательное, то поменять знак, в противном случае увеличить в 2 раза (паскаль 8 кл) ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы