Составьте программу к задаче: Возвести данное число в куб, если оно чётное, и увеличить на 3, если оно-нечётное

PS: Pascal

Question

Информатика

Митрюха

30 октября, 18:21

Составьте программу к задаче: Возвести данное число в куб, если оно чётное, и увеличить на 3, если оно-нечётное

PS: Pascal

+1

Ответы (2)

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

Димаша · Answer 1

var

a: integer;

begin

writeln ('Введите число: ') ;

read (a) ;

if a mod 2 0 then writeln ('Число нечетное: ', a+3)

else writeln ('Число четное: ', a*a*a) ;

end.

Сева · Answer 2

Uses crt;

var i:integer;

begin

readln (i) ;

if i mod 2=0 then writeln (power (i, 3))

else writeln (i+3) ;

end.

Составьте программу к задаче: Возвести данное число в куб, если оно чётное, и увеличить на 3, если оно-нечётноеPS: Pascal

Составьте программу к задаче: Возвести данное число в куб, если оно чётное, и увеличить на 3, если оно-нечётное

PS: Pascal