Question

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

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

Answer 1

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

Answer 2

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