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

Question

Информатика

Федан

14 мая, 09:23

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

+5

Ответы (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.