Question

записать программу данного числа возведенного в куб если оно четное или увеличить на 3 если оно нечетное

Answer 1

Пожалуйста:

 

program Pr1;
var a,y,z:integer;
x:real;
begin
readln(a);
if a mod 2 = 0 then
begin
x := exp(3*ln(a));
writeln(x:8:3);
end
else
begin
a := a+3;
writeln(a);
end;
end.