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

Question

Информатика

Евлогий

20 ноября, 01:36

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

+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.