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

Question

Ленгвард

11 июля, 02:56

+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.