Записать программу данного числа возведенного в куб если оно четное или увеличить на 3 если оно нечетное
Записать программу данного числа возведенного в куб если оно четное или увеличить на 3 если оно нечетное
Гость
Ответ(ы) на вопрос:
ГостьПожалуйста: 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.
Не нашли ответ?
Похожие вопросы