Question

Составьте программу на Паскале для вычисления n+5 для нечётного целого числа n и n^2 для чётного n.

Answer 1

var n:integer;

begin

   readln(n);

   if n mod 2 = 0 then

       writeln(n*n)

   else writeln(n+5);

end.

Answer 2

Конечно! Вот программа на языке Паскаль, которая вычисляет n+5 для нечётного целого числа n и n^2 для чётного n:

pascalCopy code
program CalculateNPlusFiveOrN2;

var
  n, result: integer;

begin
  // Вводим значение n
  write('Введите целое число n: ');
  readln(n);

  // Проверяем, является ли n нечётным
  if n mod 2 = 1 then
  begin
    // Если n нечётное, вычисляем n + 5
    result := n + 5;
    writeln('n + 5 = ', result);
  end
  else
  begin
    // Если n чётное, вычисляем n^2
    result := n * n;
    writeln('n^2 = ', result);
  end;
end.

Программа запрашивает у пользователя значение n, а затем проверяет, является ли оно нечётным или чётным. В зависимости от результата, программа вычисляет n + 5 для нечётного n или n^2 для чётного n и выводит результат на экран.