Вводиться n, вывести (n!+2) Блок схему и программу ** Паскаль. Пожалуйста.

Question

Вводиться n, вывести (n!+2)

Блок схему и программу на Паскаль. Пожалуйста.

Answer 1

Var sum: LongInt;
i,n: Integer;
begin
sum:=1;
writeln('Введите n');
readln(n);
for i:=1 to n do
begin
sum:=sum*i;
end;
writeln('(n!+2) = (',n,'!+2)=',sum+2);
end.

---

Comments

Упс, блок-схему не прикрепил=).

Answer 2

program znanijatop;
var
    i,n,ans:integer;
begin
writeln('Vvedite n');
readln(n);
i:=0;
ans:=1;
while i    i:=i+1;
    ans:=ans*i;
    end;
ans:=ans+2;
writeln('result ',ans);
end.

Comments

Также как вариант для экономия памяти для переменных i и n присвоить тип данных байт