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

Question

Бенедикт

5 декабря, 16:21

+5

Ответы (1)

Знаете ответ на вопрос?

Розалия · Answer 1

Var a:integer;

Begin

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

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

else a:=a*2;

Write (a)

End.