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

Question

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

57Nika57 · Answer

Var a:integer;BeginWrite( Введите целое число: );ReadLn(a);if a mod 2 = 0 then a:=a div 2else a:=a*2;Write(a)End....