Составте программу вводящую числа если число чётное разделите на 2 если не чётное умножте на 2
Составте программу вводящую числа если число чётное разделите на 2 если не чётное умножте на 2
Гость
Ответ(ы) на вопрос:
ГостьVar a:integer;
Begin
Write('Введите целое число: ');ReadLn(a);
if a mod 2 = 0 then a:=a div 2
else a:=a*2;
Write(a)
End.
Не нашли ответ?
Похожие вопросы