ПРОГРАММИРОВАНИЕ PascalABC Вводится число целое. Если оно отрицательное, то вывести его квадрат, если оно положительное, вывести его куб, иначе (оно равное нулю) вывести сообщение 'равно нулю'.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
378 div 100=314 mod 100=55 div 2=12 mod 2=
Автор: mpityk
Установи соответствие между операторами и результатами их выполнения
Автор: veronikagrabovskaya
В таблице представлены изображения
Автор: Corneewan
var
a: integer;
begin
writeln('Введите целое число:');
readln(a);
if a < 0 then
writeln(a, '^2 = ', sqr(a));
if a > 0 then
writeln(a, '^3 = ', sqr(a) * a);
if a = 0 then
writeln('Равно нулю.');
end.