Question

Программа на паскале. Если число четное-x³ иначе-x²

Answer 1

Ответ:

var x:integer;

begin

writeln('Введите число');

readln(x);

if (x mod 2) = 0 then writeln('Число четное, его куб: ' + x**3)

else writeln('Число не четное, его квадрат: ' + x**2);

end.

Объяснение:

Когда уже начнут обучать нормальным языкам..

Answer 2

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

pascalCopy code
program OddEvenSquareCube;
var
  number: integer;

begin
  writeln('Введите целое число: ');
  readln(number);

  if number mod 2 = 0 then
  begin
    writeln('Число четное, его куб: ', number * number * number);
  end
  else
  begin
    writeln('Число нечетное, его квадрат: ', number * number);
  end;

  readln; // Чтобы программа не закрылась сразу после выполнения
end.

Эта программа сначала запрашивает у пользователя ввод целого числа, а затем проверяет, является ли оно четным или нечетным, используя оператор if. Если число четное, она вычисляет его куб и выводит результат. В противном случае, она вычисляет квадрат числа и выводит результат.