Ответы
Ответ дал:
0
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.
Приложения:
![](https://st.uroker.com/files/d07/d0735922b2b82114e3d61749ceee5670.bmp)
Ответ дал:
0
Также как вариант для экономия памяти для переменных i и n присвоить тип данных байт
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад