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

mariaponomarev1 mariaponomarev1    2   25.09.2019 04:20    1

Ответы
Natasha2910 Natasha2910  01.09.2020 23:28
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.
Вводиться n, вывести (n! +2) блок схему и программу на паскаль.
ПОКАЗАТЬ ОТВЕТЫ
katyamalahova47 katyamalahova47  01.09.2020 23:28
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика