Question

98 баллов, информатика
1)Дана последовательность операторов, вычисляющих n! (факториал числа n):

k:= 0; f:= 0;
repeat f = f * k;
k:= k + 1;
until k = n;
которая содержит пять ошибок. Найдите ошибки и их исправьте.
2)k:= 1; f:= 0;
while k < n do f := f * k;
k:= k + 1;
3)p:=n;
while p>= 0 do
begin
a:=a + p mod 10;
p:= p div 10
end
4)p:=n;
while p>= 0 do
begin
a:=a + p mod 10;
p:= p div 10
end

Answer 1

1)
k:= 1; f:= 1;
repeat f := f * k;
k:= k + 1;
until k > n;

2)
k:= 1; f:= 1;
while k <= n do 
 begin
 f:= f * k;
 k:= k + 1;
 end;

3)
p:=n;
while p > 0 do
begin
a:=a*10 + p mod 10;
p:= p div 10;
end;

4)
как 3)