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

Question

Информатика

Ляна

22 ноября, 16:44

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

+4

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