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

Question

Информатика

Стенюша

4 мая, 04:32

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

+1

Ответы (1)

Знаете ответ на вопрос?

Горя · 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.