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

PS: Pascal

Question

Информатика

Вета

17 ноября, 06:12

Составьте программу к задаче: Возвести данное число в куб, если оно чётное, и увеличить на 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