информатика
Составте программу ,которая возводит в куб введённое целое число, если оно отрицательное, и выводит на экран
Оставить ответОтвет №1
Var n:integer;
begin
write('Введите целое отрицательное число: '); readln(n);
if n<0 then writeln('Куб числа "',n,'" = ',n*n*n)
else write('Число не отрицальное');
end.
Знаете ответ?