Question

Программа на языке паскаль. ввести с клавиатуры целое число, если оно положительное возвести его в квадрат, если отрицательное возвести в четвёртую степень. Напечатать результат на экране

Answer 1

Program rezultat;
 var a: integer;
begin
 write('a='); readln(a)
 if a>0 then write(sqr(a))
            else write(sqr(a)*sqr(a))
end.

sqr(a) - квадрат числа

Answer 2

Приведу пример программы на языке Паскаль, которая решает данную задачу:

program SquareOrPower;
var
  number, result: integer;
begin
  writeln('Введите целое число: ');
  readln(number);
  
  if number > 0 then
  begin
    result := number * number; // возводим число в квадрат
  end
  else
  begin
    result := number * number * number * number; // возводим число в четвертую степень
  end;
  
  writeln('Результат: ', result);
end.

Программа сначала выводит сообщение "Введите целое число: ", после чего ожидает ввода числа с клавиатуры. Затем, с помощью условной конструкции `if-else`, программа проверяет, является ли введенное число положительным или отрицательным.

Если число положительное (`number > 0`), то программа возводит его в квадрат и присваивает результат переменной `result`. В противном случае, если число отрицательное или равно нулю (`number <= 0`), программа возводит его в четвертую степень и также присваивает результат переменной `result`.

В конце программы, с помощью процедуры `writeln`, результат выводится на экран.