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.