Question

ПРОГРАММИРОВАНИЕ PascalABC Вводится число целое. Если оно отрицательное, то вывести его квадрат, если оно положительное, вывести его куб, иначе (оно равное нулю) вывести сообщение 'равно нулю'.​

Answer 1

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.

Answer 2

Вот пример программы на PascalABC, которая выполняет указанные действия:

pascalCopy code
program NumberManipulation;
var
  num: integer;
begin
  writeln('Введите целое число: ');
  readln(num);

  if num < 0 then
    writeln('Квадрат числа: ', num * num)
  else if num > 0 then
    writeln('Куб числа: ', num * num * num)
  else
    writeln('Число равно нулю');
end.

Эта программа запрашивает у пользователя целое число, затем проверяет его значение и выводит квадрат числа, если оно отрицательное, куб числа, если оно положительное, или сообщение "равно нулю", если оно равно нулю.