Question

помогите составить программу.определить является ли введенное вами целое число четным,для четного извлечь квадратный корень ,для нечетного возвести в куб.

Answer 1

program z13;
var a:integer;
begin
writeln('vvedite dannoe cislo=');
readln(a);
if a  mod 2=0 then writeln(sqrt(a))
else writeln(sqr(a)*a);
readln;
end.