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)