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

Question

Информатика

Вива

27 ноября, 05:18

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

+1

Ответы (1)

Знаешь ответ?

Прокофий · Answer 1

Var n:integer;

begin

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

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

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

end.