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

Question

Феридун

6 декабря, 17:07

+1

Ответы (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.