Question

Составить программу в паскале Даны три числа. Возвести в квадрат те из них, значения которых не отрицательны, а в третью степень отрицательные

Answer 1

var

 a, b, c: Int64;

 

begin

 Write('a = ');

 Read(a);

 Write('b = ');

 Read(b);

 Write('c = ');

 Read(c);

 

 if (a >= 0) then

   WriteLn(a * a)

 else

   WriteLn(a * a * a);

 

 if (b >= 0) then

   WriteLn(b * b)

 else

   WriteLn(b * b * b);

 

 if (c >= 0) then

   WriteLn(c * c)

 else

   WriteLn(c * c * c);

end.  

Answer 2

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

pascalCopy code
program SquaresAndCubes;

var
  num1, num2, num3: real;

begin
  writeln('Введите три числа: ');
  readln(num1, num2, num3);

  if num1 >= 0 then
    writeln('Квадрат первого числа: ', num1 * num1)
  else
    writeln('Третья степень первого числа: ', num1 * num1 * num1);

  if num2 >= 0 then
    writeln('Квадрат второго числа: ', num2 * num2)
  else
    writeln('Третья степень второго числа: ', num2 * num2 * num2);

  if num3 >= 0 then
    writeln('Квадрат третьего числа: ', num3 * num3)
  else
    writeln('Третья степень третьего числа: ', num3 * num3 * num3);

  readln;
end.

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