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