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

Gegobadi Gegobadi    3   17.03.2019 13:20    38

Ответы
тильняшка5 тильняшка5  14.02.2021 20:40

 

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика