Задать вопрос
15 февраля, 10:49

Составте программу вводящую числа если число чётное разделите на 2 если не чётное умножте на 2

+4
Ответы (1)
  1. 15 февраля, 13:56
    0
    Var a:integer;

    Begin

    Write ('Введите целое число: '); ReadLn (a);

    if a mod 2 = 0 then a:=a div 2

    else a:=a*2;

    Write (a)

    End.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Составте программу вводящую числа если число чётное разделите на 2 если не чётное умножте на 2 ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы