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

Question

Информатика

Алексюша

5 мая, 17:58

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

+5

Ответы (1)

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

Федорыч · Answer 1

Var n:integer;

begin

write ('Введите целое отрицательное число: ') ; readln (n) ;

if n<0 then writeln ('Куб числа "', n,'" = ', n*n*n)

else write ('Число не отрицальное') ;

end.