Question

)Какую структуру Будет иметь алгоритм решения следующей задачи? Дано целое положительное число N. Если N — четное, то вычислить N! = 1·2·...·N. Если N — Нечетное то вычислить сумму : 1 + 2 + .+N.Составить программу на паскале

Answer 1

Разветвляющуюся структуру
var n,f,s,i:integer;
begin
write('Введите целое положительное число N= '); readln(n);
f:=1; s:=0;
if n mod 2 =0 
then begin for i:=1 to n do f:=f*i;writeln(n, '!=', f); end
else begin for i:=1 to n do s:=s+i; writeln('S= ', s) end;
end. 

Answer 2

Структура алгоритма решения задачи

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

1. Ввод целого положительного числа N. 2. Проверка, является ли N четным или нечетным числом. 3. Если N четное: - Вычисление факториала числа N, обозначаемого как N!. - Вывод результата N!. 4. Если N нечетное: - Вычисление суммы чисел от 1 до N. - Вывод результата суммы.

Программа на языке Pascal

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

program FactorialOrSum;
var
  N, i, factorial, sum: integer;
begin
  writeln('Введите целое положительное число N:');
  readln(N);
  
  if N mod 2 = 0 then
  begin
    factorial := 1;
    for i := 1 to N do
      factorial := factorial * i;
    writeln('Факториал числа ', N, ' равен ', factorial);
  end
  else
  begin
    sum := 0;
    for i := 1 to N do
      sum := sum + i;
    writeln('Сумма чисел от 1 до ', N, ' равна ', sum);
  end;
end.

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

Примечание: Программа представлена в синтаксисе языка Pascal. Пожалуйста, убедитесь, что ваша среда разработки поддерживает этот язык или адаптируйте код для использования в другой среде разработки.