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

Question

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

Comments

Var A:integer;BeginWriteLn('Введи целых число');ReadLn(A);if (A mod 2=0) then WriteLn(sqrt(A))else WriteLn(A*A*A)End.

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.