Дано целое число. если оно чётное, то уменьшить его в 2 раза, иначе возвести в куб

Question

Информатика

Олежка

26 июня, 12:45

Дано целое число. если оно чётное, то уменьшить его в 2 раза, иначе возвести в куб

+1

Ответы (1)

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

Ася · Answer 1

var

a: integer;

b: real;

begin

writeln ('введи целое число') ;

read (a) ;

if a mod 2=0 then b:=a/2

else

b:=a*a*a;

writeln ('результат', b) ;

end.