Question

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

 

 

PS: Pascal

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.