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

PS: Pascal

Question

Информатика

Ефим

28 декабря, 11:05

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

PS: Pascal

+4

Ответы (2)

Знаете ответ?

Елистрат · Answer 1

Uses crt;

var i:integer;

begin

readln (i) ;

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

else writeln (i+3) ;

end.

Симона · Answer 2

var

a: integer;

begin

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

read (a) ;

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

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

end.

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

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

PS: Pascal