Question

Создайте программу на языке Паскаль, которая возводит нечётное число в квадрат, а чётное — в куб.

Answer 1

Ответ:

Program abc;

var a:integer;

begin

 Write('Введите число:');readln(a);

 if (a mod 2 = 0) then a:=a*(sqr(a)) else a:=sqr(a);

  Writeln(a);

end.

Answer 2

Для создания программы на языке Паскаль, которая возводит нечётное число в квадрат, а чётное число — в куб, следуйте приведенному ниже коду. Например, если введено число 5, то оно будет возведено в квадрат, что даст результат 25. Если введено число 4, оно будет возведено в куб, что даст результат 64.

pascalCopy code
program SquareOrCube;

var
  num, result: integer;

begin
  writeln('Введите число:');
  readln(num);
  
  if num mod 2 = 0 then
    result := num * num * num // возводим четное число в куб
  else
    result := num * num;      // возводим нечетное число в квадрат
    
  writeln('Результат: ', result);
end.

Скопируйте этот код в среду разработки Паскаль и запустите программу. Она попросит вас ввести число, а затем выдаст результат — либо квадрат, либо куб в зависимости от введенного числа.