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

Question

Юрт

11 декабря, 12:11

+4

Ответы (1)

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

Шат · 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.