Question

Написать программу в паскале: определить, четное число или нечетное, если четное - разделить на два и вывести результат на экран

Answer 1

var a : integer;
begin
writeln('Введите число');
read(a);
if (a mod 2 = 0) then a:= a div 2 else a:=a;
writeln(a);
end.